$ perl -MTest::More=tests,1 -e 'is(23,42,"Discordia should have the answer")'
1..1
not ok 1 - Discordia should have the answer
#     Failed test (-e at line 1)
#          got: '23'
#     expected: '42'
# Looks like you failed 1 tests of 1.