root/trunk/plagger/t/plugins/Notify-Beep/music.t

Revision 1483 (checked in by miyagawa, 14 years ago)

mroe BaseDirURI fix for windows

Line 
1 use strict;
2 use t::TestPlagger;
3 use FindBin;
4  
5 test_requires 'Audio::Beep';
6 {
7     no warnings qw(once redefine);
8     *Audio::Beep::play = \&music_ok;
9     sub music_ok { warn $_[1] }
10 }
11  
12 plan tests => 1;
13  
14 run_eval_expected_with_capture;
15  
16 __END__
17  
18 === test file
19 --- input config
20 plugins:
21   - module: Subscription::Config
22     config:
23       feed:
24         - file://$t::TestPlagger::BaseDirURI/t/samples/rss2sample.xml
25   - module: Notify::Beep
26     config:
27       music: "g' f bes' c8 f d4 c8 f d4 bes c g f2"
28 --- expected
29 like $warning, qr/g' f bes' c8 f d4 c8 f d4 bes c g f2/;
Note: See TracBrowser for help on using the browser.