[libio-all-perl] 10/14: Make a test from apeiron's expectations

[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 5eae65b3f58f1d158c5544b0a948e98b7f1882bc
Author: Ingy döt Net <ingy at ingy.net>
Date:   Mon Jul 16 18:21:44 2012 -0700

    Make a test from apeiron's expectations
---
 expectations     | 14 --------------
 t/expectations.t | 29 +++++++++++++++++++++++++++++
 2 files changed, 29 insertions(+), 14 deletions(-)

diff --git a/expectations b/expectations
deleted file mode 100644
index 82047b6..0000000
--- a/expectations
+++ /dev/null
@@ -1,14 +0,0 @@
-# foo doesn't exist
-io('foo')->append # throws exception
-
-# foo does exist
-io('foo')->create # throws exception
-
-# maybe require ->strict for those two:
-
-# foo doesn't exist
-io('foo')->strict->append # definitely dies
-
-# foo does exist
-io('foo')->strict->create # definitely dies
-
diff --git a/t/expectations.t b/t/expectations.t
new file mode 100644
index 0000000..64fd519
--- /dev/null
+++ b/t/expectations.t
@@ -0,0 +1,29 @@
+use TestML -run;
+
+__DATA__
+%TestML 1.0
+
+Plan = 1; 1 == 1; # Just pass for now.
+
+=== foo doesn't exist
+--- setup: rm foo
+--- perl: io('foo')->appends
+--- expect: throws exception
+
+=== foo does exist
+--- setup: touch foo
+--- perl: io('foo')->create
+--- expect: throws exception
+
+# maybe require ->strict for those two:
+
+=== foo doesn't exist
+--- setup: rm foo
+--- perl: io('foo')->strict->append
+--- expect: definitely dies
+
+=== foo does exist
+--- setup: touch foo
+--- perl: io('foo')->strict->create
+--- expect: definitely dies
+

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