First stab at IO::Handle.words tests

S16-io/words.t

@@ -0,0 +1,52 @@
+use v6;
+use Test;
+
+plan 2 + 4 + 4;
+
+my $filename = 't/spec/S16-io/words.testing';
+my @text  = <<zero " one" " two " "   three   " "four\n">>;
+my @clean = <zero one two three four>;
+
+unlink $filename;  # make sure spurt will work
+
+ok $filename.IO.spurt(@text), "could we spurt a file";
+
+throws-like { open($filename).words }, X::NYI,
+  feature => "'words' without closing the file handle",
+;
+
+# IO::Handle
+my @words;
+for open($filename).words(:close) -> $word {
+    @words.push($word);
+}
+is @words.join, @clean.join, "Handle pull-one cycle";
+
+@words = open($filename).words(:close);
+is @words.join, @clean.join, "Handle push-all";
+
+@words = open($filename).words(:close)[1,2];
+is @words.join, @clean[1,2].join, "Handle push-exactly cycle";
+
+my $elems = open($filename).words(:close).elems;
+is $elems, +@clean, "Handle count-only";
+
+# .IO
+@words = ();
+for $filename.IO.words -> $word {
+    @words.push($word);
+}
+is @words.join, @clean.join, "IO pull-one cycle";
+
+@words = $filename.IO.words;
+is @words.join, @clean.join, "IO push-all";
+
+@words = $filename.IO.words[1,2];
+is @words.join, @clean[1,2].join, "IO push-exactly cycle";
+
+$elems = $filename.IO.words.elems;
+is $elems, +@clean, "IO count-only";
+
+unlink $filename; # cleanup
+
+# vim: ft=perl6