use strict;
use warnings;
use Test::More tests => 4;
use Text::Pipe;
my $pipe = Text::Pipe->new('RandomCase',
force_one => 1,
probability => 10,
);
is($pipe->force_one(),1,'checking force_one after construction via paramter');
is($pipe->probability(),10,'checking probability after construction via paramter');
$pipe = Text::Pipe->new('RandomCase');
is($pipe->force_one(),undef,'checking force_one after construction without paramter');
is($pipe->probability(),undef,'checking probability after construction without paramter');