cpan/Test-Simple/t/Modern/Builder_Result_Note.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More 'modern';
   5
   6 require_ok 'Test::Builder::Result::Note';
   7
   8 can_ok('Test::Builder::Result::Note', qw/message/);
   9
  10 my $one = Test::Builder::Result::Note->new(message => "\nFooo\nBar\nBaz\n");
  11
  12 isa_ok($one, 'Test::Builder::Result::Note');
  13 isa_ok($one, 'Test::Builder::Result');
  14
  15 is($one->to_tap, "\n# Fooo\n# Bar\n# Baz\n", "Got tap output");
  16
  17 done_testing;