view release on metacpan or  search on metacpan

t/335_negated_s.t  view on Meta::CPAN

    }
}
else {
    print qq{not ok - 4 "ACCCC" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
}

$line = "ACACA";
$ret = $line =~ s/A/B/g;

if ($ret == 3) {
    if ($line eq "BCBCB") {
        print qq{ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
}

t/335_negated_s.t  view on Meta::CPAN

    }
}
else {
    print qq{not ok - 7 "ACCCC" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
}

$line = "ACACA";
$ret = $line !~ s/A/B/g;

if (not $ret) {
    if ($line eq "BCBCB") {
        print qq{ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
}