test frec indicators

diff --git a/t/3-normalize.t b/t/3-normalize.t
index 5dc5a63..53e4a7b 100755 (executable)
--- a/t/3-normalize.t
+++ b/t/3-normalize.t
@@ -3,7 +3,7 @@
 use strict;
 use lib 'lib';
 
-use Test::More tests => 357;
+use Test::More tests => 361;
 
 use utf8;
 
@@ -883,6 +883,8 @@ sub test_s {
        test_rule( 'frec', $rec, qq{ frec(200,'a') }, [ 'a1' ] );
        test_rule( 'frec', $rec, qq{ frec(200,'b') }, [ 'b1' ] );
        test_rule( 'frec', $rec, qq{ frec(200,'c') }, [ 'c1' ] );
+       test_rule( 'frec', $rec, qq{ frec(200,'i1') }, [ '0' ] );
+       test_rule( 'frec', $rec, qq{ frec(200,'i2') }, [ '1' ] );
 
        $rec->{'900'} = $rec->{'200'};
        foreach my $sf ( qw/a b c/ ) {