From 8f78ca604c3edbd7b4eb9c9b3f58e9cee844f462 Mon Sep 17 00:00:00 2001
From: Zoffix Znet <cpan@zoffix.com>
Date: Mon, 24 Apr 2017 14:24:15 +0000
Subject: [PATCH] [io grant] Test &words with IO::ArgFiles

---
 S16-io/words.t | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/S16-io/words.t b/S16-io/words.t
index 8498570307..26ec58bc09 100644
--- a/S16-io/words.t
+++ b/S16-io/words.t
@@ -1,7 +1,9 @@
 use v6;
+use lib <t/spec/packages>;
 use Test;
+use Test::Util;
 
-plan 1 + 4 + 4;
+plan 10;
 
 my $filename = 't/spec/S16-io/words.testing';
 my @text  = <<zero " one" " two " "   three   " "four\n">>;
@@ -45,4 +47,13 @@ is $elems, +@clean, "IO count-only";
 
 unlink $filename; # cleanup
 
+{
+    $*ARGFILES = IO::ArgFiles.new: :args[
+        make-temp-file(:content<foo bar>), make-temp-file(:content<meow moo>),
+        make-temp-file(:content<I ♥ Perl 6>),
+    ];
+    is-deeply words(), <foo bar meow moo I ♥ Perl 6>».Str.Seq,
+        'words() without args uses $*ARGFILES';
+}
+
 # vim: ft=perl6