X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FIPC-MorseSignals.git;a=blobdiff_plain;f=t%2F30-receiver-obj.t;h=855a9d033430180d1a854ee429598f78e2e01d6b;hp=a2e4f19c7a5792a8f566514e87bb5503d324c28e;hb=9370c8d2ab07f434272dbbddb92bdd5d8d1fe3af;hpb=db7266fa5be4347aac1d32a994d6529c7b5a4afb

diff --git a/t/30-receiver-obj.t b/t/30-receiver-obj.t
index a2e4f19..855a9d0 100644
--- a/t/30-receiver-obj.t
+++ b/t/30-receiver-obj.t
@@ -9,7 +9,7 @@ use IPC::MorseSignals::Receiver;
 
 my $pants = new IPC::MorseSignals::Receiver \%SIG;
 ok(defined $pants, 'IMR object is defined');
-ok(ref $pants eq 'IPC::MorseSignals::Receiver', 'IMR object is valid');
+is(ref $pants, 'IPC::MorseSignals::Receiver', 'IMR object is valid');
 ok($pants->isa('Bit::MorseSignals::Receiver'), 'IMR is a BMR');
 
 my $fake = { };