Depend on pkgs and move code there; drop other distros but guix

1 files changed, 0 insertions, 72 deletions

diff --git a/tests/internet/tests.scm b/tests/internet/tests.scm
deleted file mode 100644
index c4ffe85..0000000
--- a/tests/internet/tests.scm
+++ /dev/null
@@ -1,72 +0,0 @@
-(use-modules
-  ((org euandre packages) #:prefix pkg:)
-  (gnu)
-  (gnu tests)
-  (gnu system vm)
-  (guix profiles))
-(use-service-modules
-  networking)
-
-
-
-(define test-git-os
-  (simple-operating-system
-    (service dhcpcd-service-type)
-    (service pkg:git-service-type
-      (pkg:git-configuration
-        (run-server? #t)))
-    (simple-service 'mkdir-srv-dir activation-service-type
-      #~(mkdir-p "/srv/git"))))
-
-(define (test-git-fn)
-  (let* ((os (marionette-operating-system
-              test-git-os
-              #:imported-modules
-              '((gnu services herd))))
-         (vm (virtual-machine
-               (operating-system os)
-               (port-forwardings
-                '()))))
-    (define test
-      (with-imported-modules '((gnu build marionette))
-        #~(begin
-            (use-modules
-              ((srfi srfi-64) #:prefix t:)
-              ((gnu build marionette) #:prefix mrntt:))
-            (define manette
-              (mrntt:make-marionette (list #$vm)))
-            (t:test-runner-current (mrntt:system-test-runner #$output))
-            (t:test-begin "git-daemon-server")
-            (t:test-assert "Git daemon service running"
-              (mrntt:marionette-eval
-               '(begin
-                  (use-modules
-                    ((gnu services herd) #:prefix herd:))
-                  (herd:start-service 'git))
-               manette))
-            (t:test-assert "Git daemon TCP port ready"
-              (mrntt:wait-for-tcp-port 9418 manette))
-            (t:test-end))))
-    (gexp->derivation "git-service-type-test" test)))
-
-(define test-git
-  (system-test
-    (name "git")
-    (description "Test custom Git service")
-    (value (test-git-fn))))
-
-(define tests
-  (list
-   test-git))
-
-(define (system-test->manifest-entry test)
-  (manifest-entry
-    (name
-      (pkg:str "test."
-               (system-test-name test)))
-    (version "0")
-    (item test)))
-
-(manifest
- (map system-test->manifest-entry
-      tests))