Changeset 26444 for lang/perl/Music-Chord-Note/trunk/t/01.rehearsal.t

Timestamp:

12/12/08 09:47:00 (4 years ago)

Author:

bayashi

Message:

little fixed

Files:

• lang/perl/Music-Chord-Note/trunk/t/01.rehearsal.t (modified) (1 diff)

lang/perl/Music-Chord-Note/trunk/t/01.rehearsal.t

@@ -52 +52 @@
 
 
-my $no_note = $cn->scale('');
-is($no_note, undef, "No Note");
+eval { my $no_note = $cn->scale(''); };
+like($@, qr/wrong note/, "No Note");
 
 eval { my $wrong_note = $cn->scale('H'); };