Lines Matching refs:unctrl
26 # check to see if unctrl works
27 is( ref( Dumpvalue::unctrl(*FOO) ), 'GLOB', 'unctrl should not modify GLOB' );
28 is( Dumpvalue::unctrl('donotchange'), 'donotchange', "unctrl shouldn't modify");
29 like( Dumpvalue::unctrl("bo\007nd"), qr/bo\^.nd/, 'unctrl should escape' );
47 # if 'unctrl' is set
48 $d->{unctrl} = 'unctrl';
49 like( $d->stringify('double and whack:\ "'), qr!\\ \"!, 'escaped with unctrl' );
50 like( $d->stringify("a\005"), qr/^"a\^/, 'escaped ASCII value in unctrl' );
51 like( $d->stringify("b\205"), qr!^'b.'$!, 'no high-bit escape value in unctrl');
54 like( $d->stringify("b\205"), qr!^'b\\205!, 'high-bit now escaped in unctrl');
57 $d->{unctrl} = 'quote';
156 is( $d->{unctrl}, 'quote', 'set unctrl right too' );