Add some tests for running continuations with nqp::continuationreset.

Author: pmurias

t/moar/01-continuations.t

@@ -2,7 +2,7 @@
 
 # continuations.
 
-plan(19);
+plan(24);
 
 {
     # unique objects
@@ -130,6 +130,31 @@ plan(19);
     ok($B_in_invoke == 20, 'invoke also sees the invocation context');
 }
 
+{
+    my $log := '';
+
+    my $next;
+    nqp::continuationreset(nqp::null(), {
+        $log := $log ~ 1;
+        nqp::continuationcontrol(0, nqp::null(), -> $cont { $next := $cont });
+        $log := $log ~ 2;
+        nqp::continuationcontrol(0, nqp::null(), -> $cont { $next := $cont });
+        $log := $log ~ 3;
+        nqp::continuationcontrol(0, nqp::null(), -> $cont { $next := $cont });
+        $log := $log ~ 4;
+        777;
+    });
+
+    is($log, '1', 'passing a continuation to nqp::continuationreset 1/4');
+    nqp::continuationreset(nqp::null(), $next);
+    is($log, '12', 'passing a continuation to nqp::continuationreset 2/4');
+    nqp::continuationreset(nqp::null(), $next);
+    is($log, '123', 'passing a continuation to nqp::continuationreset 3/4');
+    my $ret := nqp::continuationreset(nqp::null(), $next);
+    is($log, '1234', 'passing a continuation to nqp::continuationreset 4/4');
+    is($ret, 777, 'passing a continuation to nqp::continuationreset - correct return value');
+}
+
 # gather/take example
 {
     my $SENTINEL := [];