Build all packages removed dependencies of libtest-exception-perl libtest-warn-perl...

[dh-make-perl] / dev / i386 / libperl-critic-perl / libperl-critic-perl-1.088 / t / InputOutput / RequireBracedFileHandleWithPrint.run

diff --git a/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/InputOutput/RequireBracedFileHandleWithPrint.run b/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/InputOutput/RequireBracedFileHandleWithPrint.run
new file mode 100644 (file)
index 0000000..3aeac66
--- /dev/null
+++ b/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/InputOutput/RequireBracedFileHandleWithPrint.run
@@ -0,0 +1,98 @@
+## name basic failures
+## failures 7
+## cut
+
+#print $fh;           #Punt on this
+#print $fh if 1;
+print $fh "something" . "something else";
+print $fh generate_report();
+print $fh "something" if $DEBUG;
+print $fh @list;
+print $fh $foo, $bar;
+print( $fh @list );
+print( $fh $foo, $bar );
+
+#-----------------------------------------------------------------------------
+
+## name more arcane passes
+## failures 0
+## cut
+print "something" . "something else";
+print "something" . "something else"
+  or die;
+print {FH} "something" . "something else";
+print {FH} "something" . "something else"
+  or die;
+
+print generate_report();
+print generate_report()
+  or die;
+print {FH} generate_report();
+print {FH} generate_report()
+  or die;
+
+print rand 10;
+print rand 10
+  or die;
+
+print {FH};
+print {FH}
+  or die;
+print {FH} @list;
+print {FH} @list
+  or die;
+print {FH} $foo, $bar;
+print {FH} $foo, $bar
+  or die;
+
+print @list;
+print @list
+  or die;
+print $foo, $bar;
+print $foo, $bar
+  or die;
+print $foo , $bar;
+print $foo , $bar
+  or die;
+print foo => 1;
+print foo => 1
+  or die;
+
+print( {FH} @list );
+print( {FH} @list )
+  or die;
+print( {FH} $foo, $bar );
+print( {FH} $foo, $bar )
+  or die;
+
+print();
+print()
+  or die;
+print( );
+print( )
+  or die;
+print( @list );
+print( @list )
+  or die;
+print( $foo, $bar );
+print( $foo, $bar )
+  or die;
+
+print if 1;
+print or die if 1;
+
+print 1 2; # syntax error, but not a policy violation
+$foo{print}; # not a function call
+{print}; # no siblings
+
+#-----------------------------------------------------------------------------
+
+## name more bracing arcana
+## failures 0
+## cut
+
+print {$fh};
+print {$fh} @list;
+print {$fh} $foo, $bar;
+print( {$fh} @list );
+print( {$fh} $foo, $bar );