Lines Matching full:input

41                 tie my $input, 'TieScalarCounter', $str;
42                 my $output = encode($enc, $input, $croak ? FB_CROAK : 0);
43                 is(tied($input)->{fetch}, 1, "$func processes get magic only once");
44                 is(tied($input)->{store}, $mod ? 1 : 0, "$func " . ($mod ? 'processes set magic only once' : 'does not process set magic'));
45                 is($input, $mod ? '' : $str, "$func " . ($mod ? 'modifies' : 'does not modify') . ' $input string');
52                 tie my $input, 'TieScalarCounter', $input_str;
53                 my $output = decode($enc, $input, $croak ? FB_CROAK : 0);
54                 is(tied($input)->{fetch}, 1, "$func processes get magic only once");
55                 is(tied($input)->{store}, $mod ? 1 : 0, "$func " . ($mod ? 'processes set magic only once' : 'does not process set magic'));
56                 is($input, $mod ? '' : $input_str, "$func " . ($mod ? 'modifies' : 'does not modify') . ' $input string');
62                 tie my $input, 'TieScalarCounter', $str;
63                 my $output = $obj->encode($input, $croak ? FB_CROAK : 0);
64                 is(tied($input)->{fetch}, 1, "$func processes get magic only once");
65                 is(tied($input)->{store}, $mod ? 1 : 0, "$func " . ($mod ? 'processes set magic only once' : 'does not process set magic'));
66                 is($input, $mod ? '' : $str, "$func " . ($mod ? 'modifies' : 'does not modify') . ' $input string');
73                 tie my $input, 'TieScalarCounter', $input_str;
74                 my $output = $obj->decode($input, $croak ? FB_CROAK : 0);
75                 is(tied($input)->{fetch}, 1, "$func processes get magic only once");
76                 is(tied($input)->{store}, $mod ? 1 : 0, "$func " . ($mod ? 'processes set magic only once' : 'does not process set magic'));
77                 is($input, $mod ? '' : $input_str, "$func " . ($mod ? 'modifies' : 'does not modify') . ' $input string');
83                 tie my $input, 'TieScalarCounter', $str;
84                 my $output = decode_utf8($input, $croak ? FB_CROAK : 0);
85                 is(tied($input)->{fetch}, 1, "$func processes get magic only once");
86                 is(tied($input)->{store}, $mod ? 1 : 0, "$func " . ($mod ? 'processes set magic only once' : 'does not process set magic'));
87                 is($input, $mod ? '' : $str, "$func " . ($mod ? 'modifies' : 'does not modify') . ' $input string');
93             tie my $input, 'TieScalarCounter', $str;
94             my $output = encode_utf8($input);
95             is(tied($input)->{fetch}, 1, "$func processes get magic only once");
96             is(tied($input)->{store}, 0, "$func does not process set magic");
97             is($input, $str, "$func does not modify \$input string");
102             tie my $input, 'TieScalarCounter', $str;
103             _utf8_on($input);
104             is(tied($input)->{fetch}, 1, "$func processes get magic only once");
105             is(tied($input)->{store}, defined $str ? 1 : 0, "$func " . (defined $str ? 'processes set magic only once' : 'does not process set magic'));
106             defined $str ? ok(is_utf8($input), "$func sets UTF8 status flag") : ok(!is_utf8($input), "$func does not set UTF8 status flag");
110             tie my $input, 'TieScalarCounter', $str;
111             _utf8_off($input);
112             is(tied($input)->{fetch}, 1, "$func processes get magic only once");
113             is(tied($input)->{store}, defined $str ? 1 : 0, "$func " . (defined $str ? 'processes set magic only once' : 'does not process set magic'));
114             ok(!is_utf8($input), "$func unsets UTF8 status flag");
118             tie my $input, 'TieScalarCounter', $str;
119             my $utf8 = is_utf8($input);
120             is(tied($input)->{fetch}, 1, "$func processes get magic only once");
121             is(tied($input)->{store}, 0, "$func does not process set magic");