X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FAbstract%2FTest.pm;h=55c2e9924eef5a13b012bc477e5db30a51790e74;hb=a6daa642f401a5683106ab6d9c633501d4d57abe;hp=31a0eb77edf7dd3ac2d0713e8bd35839498c7ba0;hpb=cf8389306d53331a60f1c2680cfc107387158ef5;p=scpubgit%2FQ-Branch.git diff --git a/lib/SQL/Abstract/Test.pm b/lib/SQL/Abstract/Test.pm index 31a0eb7..55c2e99 100644 --- a/lib/SQL/Abstract/Test.pm +++ b/lib/SQL/Abstract/Test.pm @@ -22,7 +22,7 @@ sub is_same_sql_bind { my $same_sql = eq_sql($tree1, $tree2); my $same_bind = eq_bind($bind_ref1, $bind_ref2); - # call Test::More::ok + # call Test::Builder::ok $tb->ok($same_sql && $same_bind, $msg); # add debugging info @@ -200,9 +200,9 @@ laws, etc. $expected_sql, \@expected_bind, $test_msg); Compares given and expected pairs of C<($sql, \@bind)>, and calls -L on the result, with C<$test_msg> as message. If the +L on the result, with C<$test_msg> as message. If the test fails, a detailed diagnostic is printed. For clients which use -L, this is the only function that needs to be +L, this is the only function that needs to be imported. =head2 eq_sql @@ -236,7 +236,7 @@ where a difference was encountered. =head1 SEE ALSO -L, L. +L, L, L. =head1 AUTHOR