Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl

...

    is($got, $exp, "Find '$rfid' in '$ocr' as '$exp'");
}

Select or download this

1..10
ok 1 - Find 'ABC' in 'DFGABCKBG' as 'ABC'
...
ok 8 - Find 'ABC' in 'AXBHCY' as 'AXBHC'
ok 9 - Find 'ABC' in 'DFGAXBHC' as 'AXBHC'
ok 10 - Find 'abc' in 'DFGABCKBG' as ''