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 / TestingAndDebugging / RequireTestLabels.run
diff --git a/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/TestingAndDebugging/RequireTestLabels.run b/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/TestingAndDebugging/RequireTestLabels.run
new file mode 100644 (file)
index 0000000..94b7907
--- /dev/null
@@ -0,0 +1,94 @@
+## name standard failures
+## failures 12
+## cut
+
+use Test::More tests => 10;
+ok($foo);
+ok(!$foo);
+is(1,2);
+isnt(1,2);
+like('foo',qr/f/);
+unlike('foo',qr/f/);
+cmp_ok(1,'==',2);
+is_deeply('literal','literal');
+is_deeply([], []);
+is_deeply({}, {});
+pass();
+fail();
+
+#-----------------------------------------------------------------------------
+
+## name standard passing
+## failures 0
+## cut
+
+ok($foo);
+ok(!$foo);
+is(1,2);
+isnt(1,2);
+like('foo',qr/f/);
+unlike('foo',qr/f/);
+cmp_ok(1,'==',2);
+is_deeply('literal','literal');
+is_deeply([], []);
+is_deeply({}, {});
+pass();
+fail();
+
+#-----------------------------------------------------------------------------
+
+## name more passing
+## failures 0
+## cut
+
+use Test::More tests => 10;
+ok($foo,'label');
+ok(!$foo,'label');
+is(1,2,'label');
+isnt(1,2,'label');
+like('foo',qr/f/,'label');
+unlike('foo',qr/f/,'label');
+cmp_ok(1,'==',2,'label');
+is_deeply('literal','literal','label');
+pass('label');
+fail('label');
+
+#-----------------------------------------------------------------------------
+
+## name empty array and hash parsing
+## failures 0
+## cut
+is_deeply([],[],'label');
+is_deeply({},{},'label');
+
+#-----------------------------------------------------------------------------
+
+## name exceptions
+## failures 1
+## parms {modules => 'Test::Foo Test::Bar'}
+## cut
+
+use Test::Bar tests => 10;
+ok($foo);
+
+#-----------------------------------------------------------------------------
+
+## name more exceptions
+## failures 0
+## parms {modules => 'Test::Foo Test::Bar'}
+## cut
+
+use Test::Baz tests => 10;
+ok($foo);
+
+#-----------------------------------------------------------------------------
+
+## name RT 24924, is_deeply
+## failures 0
+## cut
+
+use Test::More;
+
+is_deeply( { foo => 1 }, { foo => 1 }, 'Boldly criticize where nobody has criticize before.' );
+
+is_deeply( { get_empty_array() }, {}, 'Wrap sub-call in hash constructor' );