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 <i...@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 _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits