From b3542ab1f8a80e5674bbf367f3345a71f30cd0db Mon Sep 17 00:00:00 2001
From: elijah <elijah@riseup.net>
Date: Mon, 25 Nov 2013 00:42:46 -0800
Subject: initial test framework

---
 tests/dummy.rb | 44 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 tests/dummy.rb

(limited to 'tests')

diff --git a/tests/dummy.rb b/tests/dummy.rb
new file mode 100644
index 00000000..e7964a6c
--- /dev/null
+++ b/tests/dummy.rb
@@ -0,0 +1,44 @@
+# only run in the dummy case where there is no hiera.yaml file.
+raise SkipTest unless $node["dummy"]
+
+class Robot
+  def can_shoot_lasers?
+    "OHAI!"
+  end
+
+  def can_fly?
+    "YES!"
+  end
+end
+
+class TestDummy < LeapTest
+  def setup
+    @robot = Robot.new
+  end
+
+  def test_lasers
+    assert_equal "OHAI!", @robot.can_shoot_lasers?
+    pass
+  end
+
+  def test_fly
+    refute_match /^no/i, @robot.can_fly?
+    pass
+  end
+
+  def test_blah
+    assert false
+    pass
+  end
+
+  def test_that_will_be_skipped
+    skip "test this later"
+    pass
+  end
+
+  def test_err
+    12/0
+    pass
+  end
+
+end
-- 
cgit v1.2.3


From e23dc7849d1118ed2dfe7f37a6109ffbeefa959c Mon Sep 17 00:00:00 2001
From: elijah <elijah@riseup.net>
Date: Fri, 6 Dec 2013 14:59:54 -0800
Subject: added test dependencies and test halting.

---
 tests/network.rb | 12 ++++++++++++
 tests/webapp.rb  | 13 +++++++++++++
 2 files changed, 25 insertions(+)
 create mode 100644 tests/network.rb
 create mode 100644 tests/webapp.rb

(limited to 'tests')

diff --git a/tests/network.rb b/tests/network.rb
new file mode 100644
index 00000000..115d356a
--- /dev/null
+++ b/tests/network.rb
@@ -0,0 +1,12 @@
+require File.dirname(__FILE__) + '/webapp'
+
+class TestNetwork < LeapTest
+
+  def setup
+  end
+
+  def test_test
+    pass
+  end
+
+end
diff --git a/tests/webapp.rb b/tests/webapp.rb
new file mode 100644
index 00000000..1762de9e
--- /dev/null
+++ b/tests/webapp.rb
@@ -0,0 +1,13 @@
+raise SkipTest unless $node["services"].include?("webapp")
+
+class TestAWebapp < LeapTest
+  depends_on "TestNetwork"
+
+  def setup
+  end
+
+  def test_test
+    assert false, 'hey, stop here'
+  end
+
+end
-- 
cgit v1.2.3


From 68328b6e15a38a74261ee46b06091b8e63f85499 Mon Sep 17 00:00:00 2001
From: elijah <elijah@riseup.net>
Date: Mon, 9 Dec 2013 23:06:19 -0800
Subject: added initial white-box tests for couchdb and webapp nodes

---
 tests/README.md            | 12 +++++++++++
 tests/dummy.rb             | 44 -------------------------------------
 tests/network.rb           | 12 -----------
 tests/webapp.rb            | 13 -----------
 tests/white-box/couchdb.rb | 54 ++++++++++++++++++++++++++++++++++++++++++++++
 tests/white-box/dummy.rb   | 44 +++++++++++++++++++++++++++++++++++++
 tests/white-box/network.rb | 13 +++++++++++
 tests/white-box/webapp.rb  | 53 +++++++++++++++++++++++++++++++++++++++++++++
 8 files changed, 176 insertions(+), 69 deletions(-)
 create mode 100644 tests/README.md
 delete mode 100644 tests/dummy.rb
 delete mode 100644 tests/network.rb
 delete mode 100644 tests/webapp.rb
 create mode 100644 tests/white-box/couchdb.rb
 create mode 100644 tests/white-box/dummy.rb
 create mode 100644 tests/white-box/network.rb
 create mode 100644 tests/white-box/webapp.rb

(limited to 'tests')

diff --git a/tests/README.md b/tests/README.md
new file mode 100644
index 00000000..debbf700
--- /dev/null
+++ b/tests/README.md
@@ -0,0 +1,12 @@
+This directory contains to kinds of tests:
+
+White Box Tests
+================================
+
+These tests are run on the server as superuser. They are for troubleshooting any problems with the internal setup of the server.
+
+Black Box Tests
+================================
+
+These test are run the user's local machine. They are for troubleshooting any external problems with the service exposed by the server.
+
diff --git a/tests/dummy.rb b/tests/dummy.rb
deleted file mode 100644
index e7964a6c..00000000
--- a/tests/dummy.rb
+++ /dev/null
@@ -1,44 +0,0 @@
-# only run in the dummy case where there is no hiera.yaml file.
-raise SkipTest unless $node["dummy"]
-
-class Robot
-  def can_shoot_lasers?
-    "OHAI!"
-  end
-
-  def can_fly?
-    "YES!"
-  end
-end
-
-class TestDummy < LeapTest
-  def setup
-    @robot = Robot.new
-  end
-
-  def test_lasers
-    assert_equal "OHAI!", @robot.can_shoot_lasers?
-    pass
-  end
-
-  def test_fly
-    refute_match /^no/i, @robot.can_fly?
-    pass
-  end
-
-  def test_blah
-    assert false
-    pass
-  end
-
-  def test_that_will_be_skipped
-    skip "test this later"
-    pass
-  end
-
-  def test_err
-    12/0
-    pass
-  end
-
-end
diff --git a/tests/network.rb b/tests/network.rb
deleted file mode 100644
index 115d356a..00000000
--- a/tests/network.rb
+++ /dev/null
@@ -1,12 +0,0 @@
-require File.dirname(__FILE__) + '/webapp'
-
-class TestNetwork < LeapTest
-
-  def setup
-  end
-
-  def test_test
-    pass
-  end
-
-end
diff --git a/tests/webapp.rb b/tests/webapp.rb
deleted file mode 100644
index 1762de9e..00000000
--- a/tests/webapp.rb
+++ /dev/null
@@ -1,13 +0,0 @@
-raise SkipTest unless $node["services"].include?("webapp")
-
-class TestAWebapp < LeapTest
-  depends_on "TestNetwork"
-
-  def setup
-  end
-
-  def test_test
-    assert false, 'hey, stop here'
-  end
-
-end
diff --git a/tests/white-box/couchdb.rb b/tests/white-box/couchdb.rb
new file mode 100644
index 00000000..0fc4d3b2
--- /dev/null
+++ b/tests/white-box/couchdb.rb
@@ -0,0 +1,54 @@
+raise SkipTest unless $node["services"].include?("couchdb")
+
+require 'json'
+
+class TestCouchdb < LeapTest
+
+  def setup
+  end
+
+  #
+  # check to make sure we can get welcome response from local couchdb
+  #
+  def test_01_is_running
+    assert_get(couchdb_url) do |body|
+      assert_match /"couchdb":"Welcome"/, body, "Could not get welcome message from #{couchdb_url}. Probably couchdb is not running."
+    end
+    pass
+  end
+
+  #
+  # compare the configured nodes to the nodes that are actually listed in bigcouch
+  #
+  def test_02_nodes_are_in_replication_database
+    url = couchdb_admin_url("/nodes/_all_docs")
+    neighbors = assert_property('couch.bigcouch.neighbors')
+    neighbors << assert_property('domain.full')
+    neighbors.sort!
+    assert_get(url) do |body|
+      response = JSON.parse(body)
+      nodes_in_db = response['rows'].collect{|row| row['id'].sub(/^bigcouch@/, '')}.sort
+      assert_equal neighbors, nodes_in_db, "The couchdb replication node list is wrong (/nodes/_all_docs)"
+    end
+    pass
+  end
+
+  private
+
+  def couchdb_url(path="", port=nil)
+    @port ||= begin
+      assert_property 'couch.port'
+      $node['couch']['port']
+    end
+    @password ||= begin
+      assert_property 'couch.users.admin.password'
+      $node['couch']['users']['admin']['password']
+    end
+    "http://admin:#{@password}@localhost:#{port || @port}#{path}"
+  end
+
+  def couchdb_admin_url(path="")
+    couchdb_url(path, "5986") # admin port is hardcoded for now.
+  end
+
+end
diff --git a/tests/white-box/dummy.rb b/tests/white-box/dummy.rb
new file mode 100644
index 00000000..dd343769
--- /dev/null
+++ b/tests/white-box/dummy.rb
@@ -0,0 +1,44 @@
+# only run in the dummy case where there is no hiera.yaml file.
+raise SkipTest unless $node["dummy"]
+
+class Robot
+  def can_shoot_lasers?
+    "OHAI!"
+  end
+
+  def can_fly?
+    "YES!"
+  end
+end
+
+class TestDummy < LeapTest
+  def setup
+    @robot = Robot.new
+  end
+
+  def test_lasers
+    assert_equal "OHAI!", @robot.can_shoot_lasers?
+    pass
+  end
+
+  def test_fly
+    refute_match /^no/i, @robot.can_fly?
+    pass
+  end
+
+  def test_blah
+    fail "blah" #assert false
+    pass
+  end
+
+  def test_01_will_be_skipped
+    skip "test this later"
+    pass
+  end
+
+  def test_err
+    12/0
+    pass
+  end
+
+end
diff --git a/tests/white-box/network.rb b/tests/white-box/network.rb
new file mode 100644
index 00000000..9680cb5f
--- /dev/null
+++ b/tests/white-box/network.rb
@@ -0,0 +1,13 @@
+class TestNetwork < LeapTest
+
+  def setup
+  end
+
+  #
+  # TODO: write an actual test to confirm the network is up and working.
+  #
+  def test_working
+    pass
+  end
+
+end
diff --git a/tests/white-box/webapp.rb b/tests/white-box/webapp.rb
new file mode 100644
index 00000000..65f3217b
--- /dev/null
+++ b/tests/white-box/webapp.rb
@@ -0,0 +1,53 @@
+raise SkipTest unless $node["services"].include?("webapp")
+
+class TestWebapp < LeapTest
+  depends_on "TestNetwork"
+
+  HAPROXY_CONFIG = '/etc/haproxy/haproxy.cfg'
+
+  def setup
+  end
+
+  #
+  # example properties:
+  #
+  # stunnel:
+  #   couch_client:
+  #     couch1_5984:
+  #       accept_port: 4000
+  #       connect: couch1.bitmask.i
+  #       connect_port: 15984
+  #
+  def test_01_stunnel_is_working
+    assert_property('stunnel.couch_client')
+    $node['stunnel']['couch_client'].values.each do |stunnel_conf|
+      assert port = stunnel_conf['accept_port'], 'Field `accept_port` must be present in `stunnel` property.'
+      local_stunnel_url = "http://localhost:#{port}"
+      assert_get(local_stunnel_url) do |body|
+        assert_match /"couchdb":"Welcome"/, body, "Request to #{local_stunnel_url} should return couchdb welcome message."
+      end
+    end
+    pass
+  end
+
+  #
+  # example properties:
+  #
+  # haproxy:
+  #   servers:
+  #     couch1:
+  #       backup: false
+  #       host: localhost
+  #       port: 4000
+  #       weight: 10
+  #
+  def test_02_haproxy_is_working
+    port = file_match(HAPROXY_CONFIG, /^  bind localhost:(\d+)$/)
+    url = "http://localhost:#{port}"
+    assert_get(url) do |body|
+      assert_match /"couchdb":"Welcome"/, body, "Request to #{url} should return couchdb welcome message."
+    end
+    pass
+  end
+
+end
-- 
cgit v1.2.3


From 34678e895a5a40da6f444199983fee3f8ce518ee Mon Sep 17 00:00:00 2001
From: elijah <elijah@riseup.net>
Date: Fri, 27 Dec 2013 02:43:24 -0800
Subject: added some network tests for stunnel

---
 tests/white-box/dummy.rb   | 24 ++++++++++++++++++++----
 tests/white-box/network.rb | 23 +++++++++++++++++++++--
 tests/white-box/webapp.rb  |  8 ++++++--
 3 files changed, 47 insertions(+), 8 deletions(-)

(limited to 'tests')

diff --git a/tests/white-box/dummy.rb b/tests/white-box/dummy.rb
index dd343769..6ca49754 100644
--- a/tests/white-box/dummy.rb
+++ b/tests/white-box/dummy.rb
@@ -26,8 +26,8 @@ class TestDummy < LeapTest
     pass
   end
 
-  def test_blah
-    fail "blah" #assert false
+  def test_fail
+    fail "fail"
     pass
   end
 
@@ -36,8 +36,24 @@ class TestDummy < LeapTest
     pass
   end
 
-  def test_err
-    12/0
+  def test_socket_failure
+    assert_tcp_socket('localhost', 900000)
+    pass
+  end
+
+  def test_socket_success
+    fork {
+      Socket.tcp_server_loop('localhost', 12345) do |sock, client_addrinfo|
+        begin
+          sock.write('hi')
+        ensure
+          sock.close
+          exit
+        end
+      end
+    }
+    sleep 0.2
+    assert_tcp_socket('localhost', 12345)
     pass
   end
 
diff --git a/tests/white-box/network.rb b/tests/white-box/network.rb
index 9680cb5f..8ca56ffd 100644
--- a/tests/white-box/network.rb
+++ b/tests/white-box/network.rb
@@ -1,12 +1,31 @@
+require 'socket'
+
+raise SkipTest if $node["dummy"]
+
 class TestNetwork < LeapTest
 
   def setup
   end
 
   #
-  # TODO: write an actual test to confirm the network is up and working.
+  # example properties:
+  #
+  # stunnel:
+  #   couch_client:
+  #     couch1_5984:
+  #       accept_port: 4000
+  #       connect: couch1.bitmask.i
+  #       connect_port: 15984
   #
-  def test_working
+  def test_01_stunnel_is_running
+    if $node['stunnel']
+      $node['stunnel'].values.each do |stunnel_type|
+        stunnel_type.values.each do |stunnel_conf|
+          assert port = stunnel_conf['accept_port'], 'Field `accept_port` must be present in `stunnel` property.'
+          assert_tcp_socket('localhost', port)
+        end
+      end
+    end
     pass
   end
 
diff --git a/tests/white-box/webapp.rb b/tests/white-box/webapp.rb
index 65f3217b..aaad4426 100644
--- a/tests/white-box/webapp.rb
+++ b/tests/white-box/webapp.rb
@@ -1,5 +1,7 @@
 raise SkipTest unless $node["services"].include?("webapp")
 
+require 'socket'
+
 class TestWebapp < LeapTest
   depends_on "TestNetwork"
 
@@ -18,12 +20,14 @@ class TestWebapp < LeapTest
   #       connect: couch1.bitmask.i
   #       connect_port: 15984
   #
-  def test_01_stunnel_is_working
+  def test_01_can_contact_couchdb
     assert_property('stunnel.couch_client')
     $node['stunnel']['couch_client'].values.each do |stunnel_conf|
       assert port = stunnel_conf['accept_port'], 'Field `accept_port` must be present in `stunnel` property.'
       local_stunnel_url = "http://localhost:#{port}"
-      assert_get(local_stunnel_url) do |body|
+      remote_ip_address = TCPSocket.gethostbyname(stunnel_conf['connect']).last
+      msg = "(stunnel to %s:%s, aka %s)" % [stunnel_conf['connect'], stunnel_conf['connect_port'], remote_ip_address]
+      assert_get(local_stunnel_url, nil, error_msg: msg) do |body|
         assert_match /"couchdb":"Welcome"/, body, "Request to #{local_stunnel_url} should return couchdb welcome message."
       end
     end
-- 
cgit v1.2.3


From f1ba024e9c529b5f9ac988d6600931f914ec1d31 Mon Sep 17 00:00:00 2001
From: elijah <elijah@riseup.net>
Date: Fri, 27 Dec 2013 10:32:10 -0800
Subject: improved stunnel test

---
 tests/white-box/network.rb | 30 +++++++++++++++++++++---------
 1 file changed, 21 insertions(+), 9 deletions(-)

(limited to 'tests')

diff --git a/tests/white-box/network.rb b/tests/white-box/network.rb
index 8ca56ffd..02eb80ca 100644
--- a/tests/white-box/network.rb
+++ b/tests/white-box/network.rb
@@ -11,18 +11,30 @@ class TestNetwork < LeapTest
   # example properties:
   #
   # stunnel:
-  #   couch_client:
-  #     couch1_5984:
-  #       accept_port: 4000
-  #       connect: couch1.bitmask.i
-  #       connect_port: 15984
+  #   ednp_clients:
+  #     elk_9002:
+  #       accept_port: 4003
+  #       connect: elk.dev.bitmask.i
+  #       connect_port: 19002
+  #   couch_server:
+  #     accept: 15984
+  #     connect: "127.0.0.1:5984"
   #
   def test_01_stunnel_is_running
     if $node['stunnel']
-      $node['stunnel'].values.each do |stunnel_type|
-        stunnel_type.values.each do |stunnel_conf|
-          assert port = stunnel_conf['accept_port'], 'Field `accept_port` must be present in `stunnel` property.'
-          assert_tcp_socket('localhost', port)
+      $node['stunnel'].each do |stunnel_type, stunnel_configs|
+        if stunnel_type =~ /_clients?$/
+          stunnel_configs.values.each do |stunnel_conf|
+            assert port = stunnel_conf['accept_port'], 'Field `accept_port` must be present in `stunnel` property.'
+            assert_tcp_socket('localhost', port)
+          end
+        elsif stunnel_type =~ /_server$/
+          assert accept = stunnel_configs['accept'], "Field `accept` must be present in property `stunnel.#{stunnel_type}`"
+          assert_tcp_socket('localhost', accept)
+          assert connect = stunnel_configs['connect'], "Field `connect` must be present in property `stunnel.#{stunnel_type}`"
+          assert_tcp_socket(*connect.split(':'))
+        else
+          skip "Unknown stunnel type `#{stunnel_type}`"
         end
       end
     end
-- 
cgit v1.2.3


From 0a56b656f8fbfd38ee1a9babdb93fbed39c4a973 Mon Sep 17 00:00:00 2001
From: elijah <elijah@riseup.net>
Date: Fri, 27 Dec 2013 12:27:53 -0800
Subject: improve couchdb test

---
 tests/white-box/couchdb.rb | 24 +++++++++++++++++++++---
 tests/white-box/dummy.rb   | 11 +++++++++++
 2 files changed, 32 insertions(+), 3 deletions(-)

(limited to 'tests')

diff --git a/tests/white-box/couchdb.rb b/tests/white-box/couchdb.rb
index 0fc4d3b2..6ffc6a4f 100644
--- a/tests/white-box/couchdb.rb
+++ b/tests/white-box/couchdb.rb
@@ -21,7 +21,7 @@ class TestCouchdb < LeapTest
   # compare the configured nodes to the nodes that are actually listed in bigcouch
   #
   def test_02_nodes_are_in_replication_database
-    url = couchdb_admin_url("/nodes/_all_docs")
+    url = couchdb_backend_url("/nodes/_all_docs")
     neighbors = assert_property('couch.bigcouch.neighbors')
     neighbors << assert_property('domain.full')
     neighbors.sort!
@@ -33,6 +33,24 @@ class TestCouchdb < LeapTest
     pass
   end
 
+  def test_03_replica_membership
+    url = couchdb_url("/_membership")
+    assert_get(url) do |body|
+      response = JSON.parse(body)
+      nodes_configured_but_not_available = response['cluster_nodes'] - response['all_nodes']
+      nodes_available_but_not_configured = response['cluster_nodes'] - response['all_nodes']
+      if nodes_configured_but_not_available.any?
+        warn "These nodes are configured but not available:", nodes_configured_but_not_available
+      end
+      if nodes_available_but_not_configured.any?
+        warn "These nodes are available but not configured:", nodes_available_but_not_configured
+      end
+      if response['cluster_nodes'] == response['all_nodes']
+        pass
+      end
+    end
+  end
+
   private
 
   def couchdb_url(path="", port=nil)
@@ -47,8 +65,8 @@ class TestCouchdb < LeapTest
     "http://admin:#{@password}@localhost:#{port || @port}#{path}"
   end
 
-  def couchdb_admin_url(path="")
-    couchdb_url(path, "5986") # admin port is hardcoded for now.
+  def couchdb_backend_url(path="")
+    couchdb_url(path, "5986") # TODO: admin port is hardcoded for now but should be configurable.
   end
 
 end
diff --git a/tests/white-box/dummy.rb b/tests/white-box/dummy.rb
index 6ca49754..a3e8ad68 100644
--- a/tests/white-box/dummy.rb
+++ b/tests/white-box/dummy.rb
@@ -41,6 +41,17 @@ class TestDummy < LeapTest
     pass
   end
 
+  def test_warn
+    block_test do
+      warn "not everything", "is a success or failure"
+    end
+  end
+
+  # used to test extracting the proper caller even when in a block
+  def block_test
+    yield
+  end
+
   def test_socket_success
     fork {
       Socket.tcp_server_loop('localhost', 12345) do |sock, client_addrinfo|
-- 
cgit v1.2.3


From d86e34564cda2d28fd42d10e584184af7e8b7553 Mon Sep 17 00:00:00 2001
From: elijah <elijah@riseup.net>
Date: Fri, 27 Dec 2013 15:00:10 -0800
Subject: more couchdb tests

---
 tests/white-box/couchdb.rb | 31 ++++++++++++++++++++++++++++++-
 1 file changed, 30 insertions(+), 1 deletion(-)

(limited to 'tests')

diff --git a/tests/white-box/couchdb.rb b/tests/white-box/couchdb.rb
index 6ffc6a4f..3abddefc 100644
--- a/tests/white-box/couchdb.rb
+++ b/tests/white-box/couchdb.rb
@@ -33,12 +33,18 @@ class TestCouchdb < LeapTest
     pass
   end
 
+  #
+  # all configured nodes are in 'cluster_nodes'
+  # all nodes online and communicating are in 'all_nodes'
+  #
+  # this seems backward to me, so it might be the other way around.
+  #
   def test_03_replica_membership
     url = couchdb_url("/_membership")
     assert_get(url) do |body|
       response = JSON.parse(body)
       nodes_configured_but_not_available = response['cluster_nodes'] - response['all_nodes']
-      nodes_available_but_not_configured = response['cluster_nodes'] - response['all_nodes']
+      nodes_available_but_not_configured = response['all_nodes'] - response['cluster_nodes']
       if nodes_configured_but_not_available.any?
         warn "These nodes are configured but not available:", nodes_configured_but_not_available
       end
@@ -51,6 +57,29 @@ class TestCouchdb < LeapTest
     end
   end
 
+  def test_04_acl_users_exist
+    acl_users = ['_design/_auth', 'leap_mx', 'nickserver', 'soledad', 'tapicero', 'webapp']
+    url = couchdb_backend_url("/_users/_all_docs")
+    assert_get(url) do |body|
+      response = JSON.parse(body)
+      assert_equal 6, response['total_rows']
+      actual_users = response['rows'].map{|row| row['id'].sub(/^org.couchdb.user:/, '') }
+      assert_equal acl_users, actual_users
+    end
+    pass
+  end
+
+  def test_05_databases_exist
+    dbs_that_should_exist = ["customers","identities","keycache","sessions","shared","tickets","tokens","users"]
+    dbs_that_should_exist.each do |db_name|
+      assert_get(couchdb_url("/"+db_name)) do |body|
+        assert response = JSON.parse(body)
+        assert_equal db_name, response['db_name']
+      end
+    end
+    pass
+  end
+
   private
 
   def couchdb_url(path="", port=nil)
-- 
cgit v1.2.3


From 71f2d1b0b7db6bb35dd6bd9220795aed3174d90b Mon Sep 17 00:00:00 2001
From: elijah <elijah@riseup.net>
Date: Fri, 27 Dec 2013 16:47:57 -0800
Subject: added more network tests and pgrep test helper

---
 tests/white-box/couchdb.rb |  9 +++++----
 tests/white-box/network.rb | 20 ++++++++++++++++++--
 2 files changed, 23 insertions(+), 6 deletions(-)

(limited to 'tests')

diff --git a/tests/white-box/couchdb.rb b/tests/white-box/couchdb.rb
index 3abddefc..c83e5714 100644
--- a/tests/white-box/couchdb.rb
+++ b/tests/white-box/couchdb.rb
@@ -3,6 +3,7 @@ raise SkipTest unless $node["services"].include?("couchdb")
 require 'json'
 
 class TestCouchdb < LeapTest
+  depends_on "TestNetwork"
 
   def setup
   end
@@ -10,7 +11,7 @@ class TestCouchdb < LeapTest
   #
   # check to make sure we can get welcome response from local couchdb
   #
-  def test_01_is_running
+  def test_01_couch_is_running
     assert_get(couchdb_url) do |body|
       assert_match /"couchdb":"Welcome"/, body, "Could not get welcome message from #{couchdb_url}. Probably couchdb is not running."
     end
@@ -39,7 +40,7 @@ class TestCouchdb < LeapTest
   #
   # this seems backward to me, so it might be the other way around.
   #
-  def test_03_replica_membership
+  def test_03_replica_membership_is_kosher
     url = couchdb_url("/_membership")
     assert_get(url) do |body|
       response = JSON.parse(body)
@@ -64,12 +65,12 @@ class TestCouchdb < LeapTest
       response = JSON.parse(body)
       assert_equal 6, response['total_rows']
       actual_users = response['rows'].map{|row| row['id'].sub(/^org.couchdb.user:/, '') }
-      assert_equal acl_users, actual_users
+      assert_equal acl_users.sort, actual_users.sort
     end
     pass
   end
 
-  def test_05_databases_exist
+  def test_05_required_databases_exist
     dbs_that_should_exist = ["customers","identities","keycache","sessions","shared","tickets","tokens","users"]
     dbs_that_should_exist.each do |db_name|
       assert_get(couchdb_url("/"+db_name)) do |body|
diff --git a/tests/white-box/network.rb b/tests/white-box/network.rb
index 02eb80ca..53df80dc 100644
--- a/tests/white-box/network.rb
+++ b/tests/white-box/network.rb
@@ -7,6 +7,11 @@ class TestNetwork < LeapTest
   def setup
   end
 
+  def test_01_can_connect_to_internet
+    assert_get('http://www.google.com/images/srpr/logo11w.png')
+    pass
+  end
+
   #
   # example properties:
   #
@@ -20,15 +25,24 @@ class TestNetwork < LeapTest
   #     accept: 15984
   #     connect: "127.0.0.1:5984"
   #
-  def test_01_stunnel_is_running
+  def test_02_stunnel_is_running
     if $node['stunnel']
+      good_stunnel_pids = []
       $node['stunnel'].each do |stunnel_type, stunnel_configs|
         if stunnel_type =~ /_clients?$/
-          stunnel_configs.values.each do |stunnel_conf|
+          stunnel_configs.each do |stunnel_name, stunnel_conf|
+            config_file_name = "/etc/stunnel/#{stunnel_name}.conf"
+            processes = pgrep(config_file_name)
+            assert_equal 6, processes.length, "There should be six stunnel processes running for `#{config_file_name}`"
+            good_stunnel_pids += processes.map{|ps| ps[:pid]}
             assert port = stunnel_conf['accept_port'], 'Field `accept_port` must be present in `stunnel` property.'
             assert_tcp_socket('localhost', port)
           end
         elsif stunnel_type =~ /_server$/
+          config_file_name = "/etc/stunnel/#{stunnel_type}.conf"
+          processes = pgrep(config_file_name)
+          assert_equal 6, processes.length, "There should be six stunnel processes running for `#{config_file_name}`"
+          good_stunnel_pids += processes.map{|ps| ps[:pid]}
           assert accept = stunnel_configs['accept'], "Field `accept` must be present in property `stunnel.#{stunnel_type}`"
           assert_tcp_socket('localhost', accept)
           assert connect = stunnel_configs['connect'], "Field `connect` must be present in property `stunnel.#{stunnel_type}`"
@@ -37,6 +51,8 @@ class TestNetwork < LeapTest
           skip "Unknown stunnel type `#{stunnel_type}`"
         end
       end
+      all_stunnel_pids = pgrep('/usr/bin/stunnel').collect{|process| process[:pid]}.uniq
+      assert_equal good_stunnel_pids.sort, all_stunnel_pids.sort, "There should not be any extra stunnel processes that are not configured in /etc/stunnel"
     end
     pass
   end
-- 
cgit v1.2.3


From 353475da8d535f2904e68977c3dafa6bb3bb483a Mon Sep 17 00:00:00 2001
From: elijah <elijah@riseup.net>
Date: Mon, 30 Dec 2013 18:04:30 -0800
Subject: tests -- added tests to check that the right processes are running

---
 tests/white-box/couchdb.rb |  9 ++++++++-
 tests/white-box/openvpn.rb | 16 ++++++++++++++++
 tests/white-box/webapp.rb  |  6 ++++++
 3 files changed, 30 insertions(+), 1 deletion(-)
 create mode 100644 tests/white-box/openvpn.rb

(limited to 'tests')

diff --git a/tests/white-box/couchdb.rb b/tests/white-box/couchdb.rb
index c83e5714..93551367 100644
--- a/tests/white-box/couchdb.rb
+++ b/tests/white-box/couchdb.rb
@@ -8,10 +8,17 @@ class TestCouchdb < LeapTest
   def setup
   end
 
+  def test_00_daemons_running
+    assert_running 'tapicero'
+    assert_running 'bin/beam'
+    assert_running 'bin/epmd'
+    pass
+  end
+
   #
   # check to make sure we can get welcome response from local couchdb
   #
-  def test_01_couch_is_running
+  def test_01_couch_is_working
     assert_get(couchdb_url) do |body|
       assert_match /"couchdb":"Welcome"/, body, "Could not get welcome message from #{couchdb_url}. Probably couchdb is not running."
     end
diff --git a/tests/white-box/openvpn.rb b/tests/white-box/openvpn.rb
new file mode 100644
index 00000000..2b1276f4
--- /dev/null
+++ b/tests/white-box/openvpn.rb
@@ -0,0 +1,16 @@
+raise SkipTest unless $node["services"].include?("openvpn")
+
+class TestOpenvpn < LeapTest
+  depends_on "TestNetwork"
+
+  def setup
+  end
+
+  def test_01_daemons_running
+    assert_running '/usr/sbin/openvpn .* /etc/openvpn/tcp_config.conf'
+    assert_running '/usr/sbin/openvpn .* /etc/openvpn/udp_config.conf'
+    assert_running '/usr/sbin/unbound'
+    pass
+  end
+
+end
diff --git a/tests/white-box/webapp.rb b/tests/white-box/webapp.rb
index aaad4426..09e92797 100644
--- a/tests/white-box/webapp.rb
+++ b/tests/white-box/webapp.rb
@@ -54,4 +54,10 @@ class TestWebapp < LeapTest
     pass
   end
 
+  def test_03_daemons_running
+    assert_running '/usr/sbin/apache2'
+    assert_running '/usr/bin/nickserver'
+    pass
+  end
+
 end
-- 
cgit v1.2.3


From 7c4ab59e744e051c45f9e3204fcbb25eba24e156 Mon Sep 17 00:00:00 2001
From: elijah <elijah@riseup.net>
Date: Sat, 8 Mar 2014 23:14:18 -0800
Subject: allow for (optional) configured node order when running tests.
 requires latest leap_cli to work, but won't break with older leap_cli

---
 tests/order.rb | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 tests/order.rb

(limited to 'tests')

diff --git a/tests/order.rb b/tests/order.rb
new file mode 100644
index 00000000..ffa6ae4e
--- /dev/null
+++ b/tests/order.rb
@@ -0,0 +1,15 @@
+class LeapCli::Config::Node
+  #
+  # returns a list of node names that should be tested before this node.
+  # make sure to not return ourselves (please no dependency loops!).
+  #
+  def test_dependencies
+    dependents = LeapCli::Config::ObjectList.new
+    unless services.include?('couchdb')
+      if services.include?('webapp') || services.include?('mx') || services.include?('soledad')
+        dependents.merge! nodes_like_me[:services => 'couchdb']
+      end
+    end
+    dependents.keys.delete_if {|name| self.name == name}
+  end
+end
\ No newline at end of file
-- 
cgit v1.2.3


From cd09ed9eb9d183123652a52651a427bab558c496 Mon Sep 17 00:00:00 2001
From: elijah <elijah@riseup.net>
Date: Tue, 18 Mar 2014 00:19:45 -0700
Subject: clean up the names of tests

---
 tests/white-box/couchdb.rb | 16 ++++++++--------
 tests/white-box/network.rb |  6 +++---
 tests/white-box/openvpn.rb |  6 +++---
 tests/white-box/webapp.rb  | 10 +++++-----
 4 files changed, 19 insertions(+), 19 deletions(-)

(limited to 'tests')

diff --git a/tests/white-box/couchdb.rb b/tests/white-box/couchdb.rb
index 93551367..9d5da94f 100644
--- a/tests/white-box/couchdb.rb
+++ b/tests/white-box/couchdb.rb
@@ -2,13 +2,13 @@ raise SkipTest unless $node["services"].include?("couchdb")
 
 require 'json'
 
-class TestCouchdb < LeapTest
-  depends_on "TestNetwork"
+class CouchDB < LeapTest
+  depends_on "Network"
 
   def setup
   end
 
-  def test_00_daemons_running
+  def test_00_Are_daemons_running?
     assert_running 'tapicero'
     assert_running 'bin/beam'
     assert_running 'bin/epmd'
@@ -18,7 +18,7 @@ class TestCouchdb < LeapTest
   #
   # check to make sure we can get welcome response from local couchdb
   #
-  def test_01_couch_is_working
+  def test_01_Is_CouchDB_running?
     assert_get(couchdb_url) do |body|
       assert_match /"couchdb":"Welcome"/, body, "Could not get welcome message from #{couchdb_url}. Probably couchdb is not running."
     end
@@ -28,7 +28,7 @@ class TestCouchdb < LeapTest
   #
   # compare the configured nodes to the nodes that are actually listed in bigcouch
   #
-  def test_02_nodes_are_in_replication_database
+  def test_02_Is_cluster_membership_ok?
     url = couchdb_backend_url("/nodes/_all_docs")
     neighbors = assert_property('couch.bigcouch.neighbors')
     neighbors << assert_property('domain.full')
@@ -47,7 +47,7 @@ class TestCouchdb < LeapTest
   #
   # this seems backward to me, so it might be the other way around.
   #
-  def test_03_replica_membership_is_kosher
+  def test_03_Are_configured_nodes_online?
     url = couchdb_url("/_membership")
     assert_get(url) do |body|
       response = JSON.parse(body)
@@ -65,7 +65,7 @@ class TestCouchdb < LeapTest
     end
   end
 
-  def test_04_acl_users_exist
+  def test_04_Do_ACL_users_exist?
     acl_users = ['_design/_auth', 'leap_mx', 'nickserver', 'soledad', 'tapicero', 'webapp']
     url = couchdb_backend_url("/_users/_all_docs")
     assert_get(url) do |body|
@@ -77,7 +77,7 @@ class TestCouchdb < LeapTest
     pass
   end
 
-  def test_05_required_databases_exist
+  def test_05_Do_required_databases_exist?
     dbs_that_should_exist = ["customers","identities","keycache","sessions","shared","tickets","tokens","users"]
     dbs_that_should_exist.each do |db_name|
       assert_get(couchdb_url("/"+db_name)) do |body|
diff --git a/tests/white-box/network.rb b/tests/white-box/network.rb
index 53df80dc..14de2eac 100644
--- a/tests/white-box/network.rb
+++ b/tests/white-box/network.rb
@@ -2,12 +2,12 @@ require 'socket'
 
 raise SkipTest if $node["dummy"]
 
-class TestNetwork < LeapTest
+class Network < LeapTest
 
   def setup
   end
 
-  def test_01_can_connect_to_internet
+  def test_01_Can_connect_to_internet?
     assert_get('http://www.google.com/images/srpr/logo11w.png')
     pass
   end
@@ -25,7 +25,7 @@ class TestNetwork < LeapTest
   #     accept: 15984
   #     connect: "127.0.0.1:5984"
   #
-  def test_02_stunnel_is_running
+  def test_02_Is_stunnel_running?
     if $node['stunnel']
       good_stunnel_pids = []
       $node['stunnel'].each do |stunnel_type, stunnel_configs|
diff --git a/tests/white-box/openvpn.rb b/tests/white-box/openvpn.rb
index 2b1276f4..5eb2bdb5 100644
--- a/tests/white-box/openvpn.rb
+++ b/tests/white-box/openvpn.rb
@@ -1,12 +1,12 @@
 raise SkipTest unless $node["services"].include?("openvpn")
 
-class TestOpenvpn < LeapTest
-  depends_on "TestNetwork"
+class Openvpn < LeapTest
+  depends_on "Network"
 
   def setup
   end
 
-  def test_01_daemons_running
+  def test_01_Are_daemons_running?
     assert_running '/usr/sbin/openvpn .* /etc/openvpn/tcp_config.conf'
     assert_running '/usr/sbin/openvpn .* /etc/openvpn/udp_config.conf'
     assert_running '/usr/sbin/unbound'
diff --git a/tests/white-box/webapp.rb b/tests/white-box/webapp.rb
index 09e92797..142ac2de 100644
--- a/tests/white-box/webapp.rb
+++ b/tests/white-box/webapp.rb
@@ -2,8 +2,8 @@ raise SkipTest unless $node["services"].include?("webapp")
 
 require 'socket'
 
-class TestWebapp < LeapTest
-  depends_on "TestNetwork"
+class Webapp < LeapTest
+  depends_on "Network"
 
   HAPROXY_CONFIG = '/etc/haproxy/haproxy.cfg'
 
@@ -20,7 +20,7 @@ class TestWebapp < LeapTest
   #       connect: couch1.bitmask.i
   #       connect_port: 15984
   #
-  def test_01_can_contact_couchdb
+  def test_01_Can_contact_couchdb?
     assert_property('stunnel.couch_client')
     $node['stunnel']['couch_client'].values.each do |stunnel_conf|
       assert port = stunnel_conf['accept_port'], 'Field `accept_port` must be present in `stunnel` property.'
@@ -45,7 +45,7 @@ class TestWebapp < LeapTest
   #       port: 4000
   #       weight: 10
   #
-  def test_02_haproxy_is_working
+  def test_02_Is_haproxy_working?
     port = file_match(HAPROXY_CONFIG, /^  bind localhost:(\d+)$/)
     url = "http://localhost:#{port}"
     assert_get(url) do |body|
@@ -54,7 +54,7 @@ class TestWebapp < LeapTest
     pass
   end
 
-  def test_03_daemons_running
+  def test_03_Are_daemons_running?
     assert_running '/usr/sbin/apache2'
     assert_running '/usr/bin/nickserver'
     pass
-- 
cgit v1.2.3


From 7451213d5e0772d0d6cba4613bf66792da495909 Mon Sep 17 00:00:00 2001
From: elijah <elijah@riseup.net>
Date: Wed, 26 Mar 2014 10:25:29 -0700
Subject: minor: fix message on stunnel test.

---
 tests/white-box/network.rb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tests')

diff --git a/tests/white-box/network.rb b/tests/white-box/network.rb
index 53df80dc..57002beb 100644
--- a/tests/white-box/network.rb
+++ b/tests/white-box/network.rb
@@ -53,8 +53,8 @@ class TestNetwork < LeapTest
       end
       all_stunnel_pids = pgrep('/usr/bin/stunnel').collect{|process| process[:pid]}.uniq
       assert_equal good_stunnel_pids.sort, all_stunnel_pids.sort, "There should not be any extra stunnel processes that are not configured in /etc/stunnel"
+      pass
     end
-    pass
   end
 
 end
-- 
cgit v1.2.3