Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Fix tests.
  • Loading branch information
davorg committed Jun 21, 2016
1 parent 5719e72 commit 3f5c157
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions test.pl
Expand Up @@ -25,7 +25,7 @@
# Try all the routines
ok($ogg->info->{"rate"} == 44100);
ok($ogg->comment_tags);
ok(@{$ogg->comment("artist")}->[0] == "Dan");
ok(($ogg->comment("artist"))[0] eq "Dan");
ok($ogg->add_comments("moog", "bog"));
ok($ogg->edit_comment("moog", "bug"));
ok($ogg->delete_comment("artist"));
Expand All @@ -36,6 +36,6 @@

# See if full load works
ok(my $ogg = Ogg::Vorbis::Header->load("test.ogg.2"));
ok(@{$ogg->comment("moog")}->[0] == "bug");
ok(($ogg->comment("moog"))[0] eq "bug");

unlink("test.ogg.2");

0 comments on commit 3f5c157

Please sign in to comment.