Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
no need to duplicate this comment
  • Loading branch information
Stevan Little committed Apr 6, 2013
1 parent 20e93b9 commit bd1a574
Showing 1 changed file with 8 additions and 14 deletions.
22 changes: 8 additions & 14 deletions lib/Test-More/lib/Test/More.mo
Expand Up @@ -10,16 +10,17 @@ package Test::More {
say(1, "..", $test_count)
}

# NOTE:
# the "".pad(1) silliness is because
# the parser (for some reason) does
# not like strings with just spaces
# and instead gives back an empty string
# and I can't figure it out.
# - SL

sub ok ($test, $msg?) is export {
$test_count = $test_count + 1;
if ($test) {
# NOTE:
# the "".pad(1) silliness is because
# the parser (for some reason) does
# not like strings with just spaces
# and instead gives back an empty string
# and I can't figure it out.
# - SL
say([ "ok", $test_count, ($msg || "") ].join("".pad(1)));
} else {
say([ "not ok", $test_count, ($msg || "") ].join("".pad(1)))
Expand All @@ -29,13 +30,6 @@ package Test::More {
sub is ($got, $expected, $msg?) is export {
$test_count = $test_count + 1;
if (~$got eq ~$expected) {
# NOTE:
# the "".pad(1) silliness is because
# the parser (for some reason) does
# not like strings with just spaces
# and instead gives back an empty string
# and I can't figure it out.
# - SL
say([ "ok", $test_count, ($msg || "") ].join("".pad(1)));
} else {
say([ "not ok", $test_count, ($msg || "") ].join("".pad(1)))
Expand Down

0 comments on commit bd1a574

Please sign in to comment.