Lines Matching refs:_len
94 # _len
95 $x = $C->_new("1"); ok ($C->_len($x),1);
96 $x = $C->_new("12"); ok ($C->_len($x),2);
97 $x = $C->_new("123"); ok ($C->_len($x),3);
98 $x = $C->_new("1234"); ok ($C->_len($x),4);
99 $x = $C->_new("12345"); ok ($C->_len($x),5);
100 $x = $C->_new("123456"); ok ($C->_len($x),6);
101 $x = $C->_new("1234567"); ok ($C->_len($x),7);
102 $x = $C->_new("12345678"); ok ($C->_len($x),8);
103 $x = $C->_new("123456789"); ok ($C->_len($x),9);
105 $x = $C->_new("8"); ok ($C->_len($x),1);
106 $x = $C->_new("21"); ok ($C->_len($x),2);
107 $x = $C->_new("321"); ok ($C->_len($x),3);
108 $x = $C->_new("4321"); ok ($C->_len($x),4);
109 $x = $C->_new("54321"); ok ($C->_len($x),5);
110 $x = $C->_new("654321"); ok ($C->_len($x),6);
111 $x = $C->_new("7654321"); ok ($C->_len($x),7);
112 $x = $C->_new("87654321"); ok ($C->_len($x),8);
113 $x = $C->_new("987654321"); ok ($C->_len($x),9);
119 print "# Tried len '$a'\n" unless ok ($C->_len($x),$i);