#!/perl
use strict;

use Test::More tests => 3;

use Growl::Tiny qw(notify);

ok( notify( { subject => 'growl identifier message 1',
              title   => 'first growl',
              identifier => 'foo',
          }),
    "notify() called with growl identifier"
);

sleep 1;

ok( notify( { subject => 'growl identifier message 2',
              title   => 'second growl',
              identifier => 'foo',
          }),
    "notify() called with growl identifier"
);

sleep 1;

ok( notify( { subject => 'growl identifier message 3',
              title   => 'third growl',
              identifier => 'foo',
          }),
    "notify() called with growl identifier"
);