test:Tests for using the default script.

Author: antononcube

t/10-default-script.rakutest

@@ -0,0 +1,39 @@
+use v6.d;
+use Test;
+use CortexJS::ComputeEngine;
+
+sub can-run-node() {
+    my $proc = try run 'node', '--version', :out, :err;
+    return False unless $proc.defined;
+    $proc.exitcode == 0;
+}
+
+unless can-run-node() {
+    plan 1;
+    skip 'node is not installed in this environment', 1;
+    exit 0;
+}
+
+my $ce;
+my $startup-error = '';
+try {
+    $ce = CortexJS::ComputeEngine.new();
+    CATCH {
+        default {
+            $startup-error = .Str;
+        }
+    }
+}
+
+unless $ce.defined {
+    plan 1;
+    skip "backend did not start with default script: {$startup-error}", 1;
+    exit 0;
+}
+
+LEAVE { try $ce.close if $ce.defined; }
+
+my %ping = $ce.ping.Hash;
+is %ping<pong>, True, 'default script startup supports ping';
+
+done-testing;