X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FIPC-MorseSignals.git;a=blobdiff_plain;f=t%2F20-emitter-obj.t;h=abb01b49fc3edf864dcf91462f6f4ee569cc1fda;hp=bd88b12675475ca58eea61467fd0b9ec090f23a3;hb=0b4f6d24128d9d60c3f8a5010e43bdfd9de7b655;hpb=20477798fb2d66f61ad45d4645f261b9fbdc7e4a

diff --git a/t/20-emitter-obj.t b/t/20-emitter-obj.t
index bd88b12..abb01b4 100644
--- a/t/20-emitter-obj.t
+++ b/t/20-emitter-obj.t
@@ -9,7 +9,7 @@ use IPC::MorseSignals::Emitter;
 
 sub neq { abs($_[0] - $_[1]) < ($_[1] / 10) };
 
-my $deuce = new IPC::MorseSignals::Emitter;
+my $deuce = IPC::MorseSignals::Emitter->new;
 ok(defined $deuce, 'BME object is defined');
 is(ref $deuce, 'IPC::MorseSignals::Emitter', 'IME object is valid');
 ok($deuce->isa('Bit::MorseSignals::Emitter'), 'IME is a BME');
@@ -32,22 +32,22 @@ $deuce->speed(100);
 is($deuce->speed, 100, 'set speed is 100');
 ok(neq($deuce->delay, 0.01), 'resulting speed is 0.01');
 
-$deuce = new IPC::MorseSignals::Emitter delay => 0.25;
+$deuce = IPC::MorseSignals::Emitter->new(delay => 0.25);
 ok(neq($deuce->delay, 0.25), 'initial delay is 0.25');
 is($deuce->speed, 4, 'resulting initial speed is 4');
 
-$deuce = new IPC::MorseSignals::Emitter speed => 40;
+$deuce = IPC::MorseSignals::Emitter->new(speed => 40);
 is($deuce->speed, 40, 'initial speed is 40');
 ok(neq($deuce->delay, 0.025), 'resulting initial delay is 0.025');
 
-$deuce = new IPC::MorseSignals::Emitter delay => 0.25, speed => 40;
+$deuce = IPC::MorseSignals::Emitter->new(delay => 0.25, speed => 40);
 ok(neq($deuce->delay, 0.25), 'delay supersedes speed');
 
-$deuce = new IPC::MorseSignals::Emitter delay => 0;
+$deuce = IPC::MorseSignals::Emitter->new(delay => 0);
 is($deuce->delay, 1, 'wrong delay results in 1');
 
-$deuce = new IPC::MorseSignals::Emitter speed => 0.1;
+$deuce = IPC::MorseSignals::Emitter->new(speed => 0.1);
 is($deuce->delay, 1, 'wrong speed results in 1');
 
-$deuce = new IPC::MorseSignals::Emitter delay => 0, speed => -0.1;
+$deuce = IPC::MorseSignals::Emitter->new(delay => 0, speed => -0.1);
 is($deuce->delay, 1, 'wrong delay and speed result in 1');