1 use Test::Base tests => 2;
4 is $b->ok, "I am ok. Are you ok?";
7 is_deeply [$b->words], [qw(foo bar baz)];
11 === Split a string of lines into words
18 --- words split=x: fooxbarxbaz
20 The other tests don't work yet.
30 --- test lines Split Reverse Join reverse join=\n