1*5759b3d2Safresh1#!/usr/bin/perl 2*5759b3d2Safresh1 3*5759b3d2Safresh1use Test::Builder::Tester tests => 10; 4*5759b3d2Safresh1use Test::More; 5*5759b3d2Safresh1 6*5759b3d2Safresh1ok(1,"This is a basic test"); 7*5759b3d2Safresh1 8*5759b3d2Safresh1test_out("ok 1 - tested"); 9*5759b3d2Safresh1ok(1,"tested"); 10*5759b3d2Safresh1test_test("captured okay on basic"); 11*5759b3d2Safresh1 12*5759b3d2Safresh1test_out("ok 1 - tested"); 13*5759b3d2Safresh1ok(1,"tested"); 14*5759b3d2Safresh1test_test("captured okay again without changing number"); 15*5759b3d2Safresh1 16*5759b3d2Safresh1ok(1,"test unrelated to Test::Builder::Tester"); 17*5759b3d2Safresh1 18*5759b3d2Safresh1test_out("ok 1 - one"); 19*5759b3d2Safresh1test_out("ok 2 - two"); 20*5759b3d2Safresh1ok(1,"one"); 21*5759b3d2Safresh1ok(2,"two"); 22*5759b3d2Safresh1test_test("multiple tests"); 23*5759b3d2Safresh1 24*5759b3d2Safresh1test_out(qr/ok 1 - tested\n/); 25*5759b3d2Safresh1ok(1,"tested"); 26*5759b3d2Safresh1test_test("regexp matching"); 27*5759b3d2Safresh1 28*5759b3d2Safresh1test_out("not ok 1 - should fail"); 29*5759b3d2Safresh1test_err("# Failed test ($0 at line 32)"); 30*5759b3d2Safresh1test_err("# got: 'foo'"); 31*5759b3d2Safresh1test_err("# expected: 'bar'"); 32*5759b3d2Safresh1is("foo","bar","should fail"); 33*5759b3d2Safresh1test_test("testing failing"); 34*5759b3d2Safresh1 35*5759b3d2Safresh1 36*5759b3d2Safresh1test_out("not ok 1"); 37*5759b3d2Safresh1test_out("not ok 2"); 38*5759b3d2Safresh1test_fail(+2); 39*5759b3d2Safresh1test_fail(+1); 40*5759b3d2Safresh1fail(); fail(); 41*5759b3d2Safresh1test_test("testing failing on the same line with no name"); 42*5759b3d2Safresh1 43*5759b3d2Safresh1 44*5759b3d2Safresh1test_out("not ok 1 - name"); 45*5759b3d2Safresh1test_out("not ok 2 - name"); 46*5759b3d2Safresh1test_fail(+2); 47*5759b3d2Safresh1test_fail(+1); 48*5759b3d2Safresh1fail("name"); fail("name"); 49*5759b3d2Safresh1test_test("testing failing on the same line with the same name"); 50*5759b3d2Safresh1 51*5759b3d2Safresh1 52*5759b3d2Safresh1test_out("not ok 1 - name # TODO Something"); 53*5759b3d2Safresh1test_out("# Failed (TODO) test ($0 at line 56)"); 54*5759b3d2Safresh1TODO: { 55*5759b3d2Safresh1 local $TODO = "Something"; 56*5759b3d2Safresh1 fail("name"); 57*5759b3d2Safresh1} 58*5759b3d2Safresh1test_test("testing failing with todo"); 59*5759b3d2Safresh1 60