1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#!perl -w
use strict;
use Test::More tests => 2;
use Test::Builder::Tester;
use Test::Builder::Tester::Color;
use Test::LongString max => 5, lcss => 0;
test_out("not ok 1 - foobar is foobar");
test_fail(6);
test_diag(qq! got: "foobu"...
# length: 6
# expected: "fooba"...
# length: 6
# strings begin to differ at char 5 (line 1 column 5)!);
is_string("foobur", "foobar", "foobar is foobar");
test_test("5 chars in output");
is($Test::LongString::LCSS, 0, "\$LCSS global set");
|
