[libio-all-perl] 11/14: Show apeiron some more testml

[Axel Beckert]

This is an automated email from the git hooks/post-receive script.

abe pushed a commit to tag alt-io-all-new-0.00
in repository libio-all-perl.

commit 88ddcb6d89601fbdbdec977c34ca895fed47fbab
Author: Ingy döt Net <ingy at ingy.net>
Date:   Mon Jul 16 18:42:30 2012 -0700

    Show apeiron some more testml
    
    this test is still bogus, but you can see how it plays out, somewhat.
---
 t/expectations.t | 21 ++++++++++++++++++---
 1 file changed, 18 insertions(+), 3 deletions(-)

diff --git a/t/expectations.t b/t/expectations.t
index 64fd519..4b980b0 100644
--- a/t/expectations.t
+++ b/t/expectations.t
@@ -1,12 +1,27 @@
-use TestML -run;
+use TestML -run, -bridge => 'main';
+
+sub setup {
+    shift;
+    my $cmd = (shift)->value;
+    `$cmd`;
+}
+sub eval_perl {
+    shift;
+    my $perl = (shift)->value;
+    # eval $perl;
+    my $expect = (shift)->value;
+    die $expect;
+}
 
 __DATA__
 %TestML 1.0
 
-Plan = 1; 1 == 1; # Just pass for now.
+Plan = 4;
+
+setup(*setup).eval_perl(*perl, *expect).Catch == *expect;
 
 === foo doesn't exist
---- setup: rm foo
+--- setup: rm -f foo
 --- perl: io('foo')->appends
 --- expect: throws exception
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libio-all-perl.git