[libio-all-perl] 11/14: Show apeiron some more testml
Axel Beckert
abe at deuxchevaux.org
Sun Apr 26 22:25:28 UTC 2015
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
More information about the Pkg-perl-cvs-commits
mailing list