#!/usr/bin/env perl

use strict;
use warnings;

use Test::More;

my @tests = (
    [qw{ABC DFGABCKBG ABC}], 
    [qw{ABC DFGAXBHCY AXBHC}],
    [qw{ABC DFGAXBHY AXB}],
    [qw{ABC DFGCBAKBG AKB}],
    [qw{ABC DFGCBAKbG A}],
    ['', 'DFGCBAKbG', ''],
    ['ABC', '', ''],
    [qw{ABC AXBHCY AXBHC}],
    [qw{ABC DFGAXBHC AXBHC}],
    [qw{abc DFGABCKBG}, ''],
);

plan tests => scalar @tests;

for my $test (@tests) {
    my ($start, $end) = (-1, -1),
    my ($rfid, $ocr, $exp) = @$test;

    for (0 .. length($rfid) - 1) {
        my $pos = index $ocr, substr($rfid, $_, 1), $end + 1;
        next if $pos == -1;
        $start = $pos if $start == -1;
        $end = $pos;
    }

    my $got = $start == -1 ? '' : substr $ocr, $start, $end - $start + 1;

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