Some tests for the new container stuff.

t/nqp/67-container.t

@@ -0,0 +1,24 @@
+plan(4);
+
+# code_pair container spec
+{
+    my $value := 42;
+    sub fetch($cont) { $value }
+    sub store($cont, $new) { $value := $new }
+
+    class SomeCont { }
+    nqp::setcontspec(SomeCont, 'code_pair', nqp::hash(
+        'fetch', &fetch,
+        'store', &store
+    ));
+
+    my $cont := nqp::create(SomeCont);
+    ok(nqp::iscont($cont), 'correct result from iscont');
+
+    ok(nqp::decont($cont) == 42, 'initial decontainerization OK');
+
+    nqp::assign($cont, 101);
+    ok(nqp::decont($cont) == 101, 'assigned value stuck');
+
+    ok($value == 101, 'updated captured value also');
+}