1*5759b3d2Safresh1# This file contains tests where \t characters should not be expanded into 2*5759b3d2Safresh1# spaces. 3*5759b3d2Safresh1 4*5759b3d2Safresh1BEGIN { 5*5759b3d2Safresh1 chdir 't' if -d 't'; 6*5759b3d2Safresh1 require './test.pl'; 7*5759b3d2Safresh1} 8*5759b3d2Safresh1 9*5759b3d2Safresh1{ 10*5759b3d2Safresh1 like("\t", qr/[a b]/x, '\t not ignored under /x'); 11*5759b3d2Safresh1 unlike("\t", qr/[a b]/xx, '\t ignored under /xx'); 12*5759b3d2Safresh1 like("a", qr/[a b]/xx, '"a" matches qr/[a b]/xx'); 13*5759b3d2Safresh1 like("b", qr/[a b]/xx, '"b" matches qr/[a b]/xx'); 14*5759b3d2Safresh1 like("\t", qr/[a\ b]/xx, '"\t" matches qr/[a\ b]/xx'); 15*5759b3d2Safresh1 like("a", qr/[a\ b]/xx, '"a" matches qr/[a\ b]/xx'); 16*5759b3d2Safresh1 like("b", qr/[a\ b]/xx, '"b" matches qr/[a\ b]/xx'); 17*5759b3d2Safresh1 18*5759b3d2Safresh1 like("\t", qr/(?x:[a b])/, '\t not ignored under /x'); 19*5759b3d2Safresh1 unlike("\t", qr/(?xx:[a b])/, '\t ignored under /xx'); 20*5759b3d2Safresh1 like("a", qr/(?xx:[a b])/, '"a" matches qr/(?xx:[a b])/'); 21*5759b3d2Safresh1 like("b", qr/(?xx:[a b])/, '"b" matches qr/(?xx:[a b])/'); 22*5759b3d2Safresh1 like("\t", qr/(?xx:[a\ b])/, '"\t" matches qr/(?xx:[a\ b])/'); 23*5759b3d2Safresh1 like("a", qr/(?xx:[a\ b])/, '"a" matches qr/(?xx:[a\ b])/'); 24*5759b3d2Safresh1 like("b", qr/(?xx:[a\ b])/, '"b" matches qr/(?xx:[a\ b])/'); 25*5759b3d2Safresh1} 26*5759b3d2Safresh1 27*5759b3d2Safresh1done_testing; 28*5759b3d2Safresh1 29*5759b3d2Safresh1# ex softtabstop=0 noexpandtab 30