Lines Matching full:source

27     my $source = $ib;
29     my $should_be = $source;
31     $ret = test_delimcpy($source, $source_len, $d, $source_len, $source_len, $poison);
32     is($ret->[0], expected($source, $source_len, $poison, $source_len),
35     is($ret->[2], 1, "Source advance is correct");
37     $source .= $d;
38     $ret = test_delimcpy($source, $source_len, $d, $source_len, $source_len, $poison);
39     is($ret->[0], expected($source, $source_len, $poison, $source_len),
42     is($ret->[2], 1, "Source advance is correct");
45     $source = $should_be . $d;
47     $ret = test_delimcpy($source, $source_len, $d, $source_len, $source_len, $poison);
48     is($ret->[0], expected($source, $source_len, $poison, $source_len),
52     is($ret->[2], 2, "Source advance is correct");
62     # Now to more extensive tests.  The source includes escaped delimiters
71     # the source pointer.  This won't include the unescaped delimiter
75     $source = $base_source . ($ib x 6);
76     $source_len = length $source;
82     $ret = test_delimcpy($source, $source_len,
89     is($ret->[2], $source_advance, "Source advance is correct");
91     $ret = test_delimcpy($source, $source_len, $d,
97     is($ret->[2], $source_advance, "Source advance is correct");
100     $ret = test_delimcpy($source, $source_len,
107     is($ret->[2], $source_advance, "Source advance is correct");
110     $ret = test_delimcpy($source, $source_len,
118     is($ret->[2], $source_advance, "Source advance is correct");
123         $ret = test_delimcpy($source, $source_len,
131         is($ret->[2], $source_advance, "Source advance is correct");
143         my $source = $ib;
145         my $should_be = $source;
147         $ret = eval "$test_func(\$source, \$source_len, \$d, \$source_len, \$source_len, \$poison)";
148         is($ret->[0], expected($source, $source_len, $poison, $source_len),
151         is($ret->[2], 1, "Source advance is correct");
153         $source .= $d;
154         $ret = eval "$test_func(\$source, \$source_len, \$d, \$source_len, \$source_len, \$poison)";
155         is($ret->[0], expected($source, $source_len, $poison, $source_len),
158         is($ret->[2], 1, "Source advance is correct");
168         $source = $ib x 6;
169         my $len_sans_delim = length $source;
170         my $with_NULL = $source . "\0";
171         $source .= $d . ($ib x 7);
172         $source_len = length $source;
173         $ret = eval "$test_func(\$source, \$source_len, \$d, \$source_len, \$source_len, \$poison)";
175            "$func works when delim is in middle of source, plenty of room");
177         is($ret->[2], $len_sans_delim, "Source advance is correct");
179 …   $ret = eval "$test_func(\$source, \$source_len, \$d, \$source_len, \$len_sans_delim, \$poison)";
180         is($ret->[0], expected($source, $len_sans_delim, $poison, $source_len),
181            "$func works when delim is in middle of source; no room for safety NUL");
183         is($ret->[2], $len_sans_delim, "Source advance is correct");
185 …$ret = eval "$test_func(\$source, \$source_len, \$d, \$source_len, \$len_sans_delim - 1, \$poison)…
186         is($ret->[0], expected($source, $len_sans_delim - 1, $poison, $source_len),
189         is($ret->[2], $len_sans_delim, "Source advance is correct");