[cookbook] add a test for 13classes-objects-and-ties

Author: paultcochrane

t/categories/cookbook/13classes-objects-and-ties.t

@@ -0,0 +1,28 @@
+use v6;
+
+use Test;
+
+plan 1;
+
+subtest {
+    plan 1;
+
+    my $example-name = "13-01constructing-an-object.pl";
+    my $expected-output = "Yes";
+
+    my $output = run-example($example-name);
+    is($output.chomp, $expected-output, $example-name);
+}, "13-01constructing-an-object.pl";
+
+#| run the given example script
+sub run-example($name, :$script-args = Nil) {
+    my $base-dir = "categories/cookbook/13classes-objects-and-ties";
+    my $script-path = $base-dir ~ "/" ~ $name;
+    my $base-cmd = "perl6 $script-path";
+    my $output = $script-args ?? qqx{$base-cmd \"$script-args\"}
+                              !! qqx{$base-cmd};
+
+    return $output;
+}
+
+# vim: expandtab shiftwidth=4 ft=perl6