Lines Matching full:text

6 use Text::Balanced qw ( :ALL );
22     my ($text, @index) = @_;
25     push @index, length($text);
28         push @bits, substr($text, $index[$i], $index[$i+1]-$index[$i]);
37 my $text = $stdtext1;
38 expect [ extract_multiple($text,undef,1) ],
41 expect [ pos $text], [ 4 ];
42 expect [ $text ], [ $stdtext1 ];
44 $text = $stdtext1;
45 expect [ scalar extract_multiple($text,undef,1) ],
48 expect [ pos $text], [ 0 ];
49 expect [ $text ], [ substr($stdtext1,4) ];
52 $text = $stdtext1;
53 expect [ extract_multiple($text,undef,2) ],
56 expect [ pos $text], [ 10 ];
57 expect [ $text ], [ $stdtext1 ];
59 $text = $stdtext1;
60 expect [ eval{local$^W;scalar extract_multiple($text,undef,2)} ],
63 expect [ pos $text], [ 0 ];
64 expect [ $text ], [ substr($stdtext1,4) ];
67 $text = $stdtext1;
68 expect [ extract_multiple($text,undef,3) ],
71 expect [ pos $text], [ 26 ];
72 expect [ $text ], [ $stdtext1 ];
74 $text = $stdtext1;
75 expect [ eval{local$^W;scalar extract_multiple($text,undef,3)} ],
78 expect [ pos $text], [ 0 ];
79 expect [ $text ], [ substr($stdtext1,4) ];
82 $text = $stdtext1;
83 expect [ extract_multiple($text,undef,4) ],
86 expect [ pos $text], [ 27 ];
87 expect [ $text ], [ $stdtext1 ];
89 $text = $stdtext1;
90 expect [ eval{local$^W;scalar extract_multiple($text,undef,4)} ],
93 expect [ pos $text], [ 0 ];
94 expect [ $text ], [ substr($stdtext1,4) ];
97 $text = $stdtext1;
98 expect [ extract_multiple($text,undef,5) ],
101 expect [ pos $text], [ 27 ];
102 expect [ $text ], [ $stdtext1 ];
105 $text = $stdtext1;
106 expect [ eval{local$^W;scalar extract_multiple($text,undef,5)} ],
109 expect [ pos $text], [ 0 ];
110 expect [ $text ], [ substr($stdtext1,4) ];
116 $text = $stdtext2;
117 expect [ extract_multiple($text) ],
120 expect [ pos $text], [ 24 ];
121 expect [ $text ], [ $stdtext2 ];
123 $text = $stdtext2;
124 expect [ scalar extract_multiple($text) ],
127 expect [ pos $text], [ 0 ];
128 expect [ $text ], [ substr($stdtext2,4) ];
131 $text = $stdtext2;
132 expect [ extract_multiple($text,[\&extract_bracketed]) ],
135 expect [ pos $text], [ 24 ];
136 expect [ $text ], [ $stdtext2 ];
138 $text = $stdtext2;
139 expect [ scalar extract_multiple($text,[\&extract_bracketed]) ],
142 expect [ pos $text], [ 0 ];
143 expect [ $text ], [ substr($stdtext2,15) ];
146 $text = $stdtext2;
147 expect [ extract_multiple($text,[\&extract_variable]) ],
150 expect [ pos $text], [ length($text) ];
151 expect [ $text ], [ $stdtext2 ];
153 $text = $stdtext2;
154 expect [ scalar extract_multiple($text,[\&extract_variable]) ],
157 expect [ pos $text], [ 0 ];
158 expect [ $text ], [ substr($stdtext2,4) ];
161 $text = $stdtext2;
162 expect [ extract_multiple($text,[\&extract_quotelike]) ],
165 expect [ pos $text], [ length($text) ];
166 expect [ $text ], [ $stdtext2 ];
168 $text = $stdtext2;
169 expect [ scalar extract_multiple($text,[\&extract_quotelike]) ],
172 expect [ pos $text], [ 0 ];
173 expect [ $text ], [ substr($stdtext2,6) ];
176 $text = $stdtext2;
177 expect [ extract_multiple($text,[\&extract_quotelike],2,1) ],
180 expect [ pos $text], [ 23 ];
181 expect [ $text ], [ $stdtext2 ];
183 $text = $stdtext2;
184 expect [ eval{local$^W;scalar extract_multiple($text,[\&extract_quotelike],2,1)} ],
187 expect [ pos $text], [ 6 ];
188 expect [ $text ], [ substr($stdtext2,0,6). substr($stdtext2,12) ];
191 $text = $stdtext2;
192 expect [ extract_multiple($text,[\&extract_quotelike],1,1) ],
195 expect [ pos $text], [ 12 ];
196 expect [ $text ], [ $stdtext2 ];
198 $text = $stdtext2;
199 expect [ scalar extract_multiple($text,[\&extract_quotelike],1,1) ],
202 expect [ pos $text], [ 6 ];
203 expect [ $text ], [ substr($stdtext2,0,6). substr($stdtext2,12) ];
249 # Fails in Text-Balanced-1.95 with result ['1 ', '""', '1234']