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

Revision 1656 (checked in by miyagawa, 14 years ago)
  • Updated captured variable name to $warnings.
  • Fixed POD bug in Publish::Takahashi
  • Updated ID of Publish::Takahashi test to use MD5 of file path, since it depends on local path, Eh.
  • Added failing test for Planet XSS bug
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 $warnings, qr/g' f bes' c8 f d4 c8 f d4 bes c g f2/;
Note: See TracBrowser for help on using the browser.