cpan/Test-Simple/t/Test-Stream-Event-Note.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::Stream;
   5 use Test::More;
   6
   7 use ok 'Test::Stream::Event::Note';
   8
   9 my $note = Test::Stream::Event::Note->new('fake', 'fake', 0, "hello");
  10
  11 is($note->message, 'hello', "got message");
  12
  13 is_deeply(
  14     [$note->to_tap],
  15     [[Test::Stream::Event::Note::OUT_STD, "# hello\n"]],
  16     "Got handle id and message in tap",
  17 );
  18
  19 done_testing;