Blame test/gnuops3.awk

Packit Service f629e6
# Mon Jan 31 09:57:30 IST 2005
Packit Service f629e6
# test both dfa and regex matchers on \B
Packit Service f629e6
# tests from Stepan Kasal, kasal@ucw.cz
Packit Service f629e6
BEGIN {
Packit Service f629e6
Packit Service f629e6
	print ("  " ~ / \B /)	# test dfa matcher
Packit Service f629e6
	print ("a b" ~ /\B/)
Packit Service f629e6
	print (" b" ~ /\B/)
Packit Service f629e6
	print ("a " ~ /\B/)
Packit Service f629e6
Packit Service f629e6
	a = "  "
Packit Service f629e6
	gsub(/\B/, "x", a)	# test regex matcher
Packit Service f629e6
	print a
Packit Service f629e6
}