use Text::Yats;

print "1..1\n";

print "Testing Text::Yats-", $Text::Yats::VERSION, "\n";

$testno = 1;

# This used to generate a warning
print "ok ", $testno++, "\n";