Some tests for Embperl UTF8 escaping

[- use Encode ; $fdat{test} = "abc!'\"$%&()<>=δφόΔΦάί©" ; $fdat{utf8} = decode("iso-8859-1", $fdat{test}) ; $escmodestd = $escmode ; -] ------------------------------------------------ $epreq -> config -> output_esc_charset = 1 [- $epreq -> config -> output_esc_charset (1) -] $escmode = $escmodestd ; [- $escmode = $escmodestd ; -] abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{test} +] utf8: abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{utf8} +] poststd: postutf8: $escmode = 8 ; [- $escmode = 8 ; -] abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{test} +] utf8: abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{utf8} +] $escmode = 2 ; [- $escmode = 2 ; -] abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{test} +] utf8: abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{utf8} +] ------------------------------------------------ $epreq -> config -> output_esc_charset = 2 [- $epreq -> config -> output_esc_charset (2) -] $escmode = $escmodestd ; [- $escmode = $escmodestd ; -] abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{test} +] utf8: abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{utf8} +] poststd: postutf8: $escmode = 8 ; [- $escmode = 8 ; -] abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{test} +] utf8: abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{utf8} +] $escmode = 2 ; [- $escmode = 2 ; -] abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{test} +] utf8: abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{utf8} +] ------------------------------------------------ $epreq -> config -> output_esc_charset = 0 [- $epreq -> config -> output_esc_charset (0) -] $escmode = $escmodestd ; [- $escmode = $escmodestd ; -] abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{test} +] utf8: abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{utf8} +] poststd: postutf8: $escmode = 8 ; [- $escmode = 8 ; -] abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{test} +] utf8: abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{utf8} +] $escmode = 2 ; [- $escmode = 2 ; -] abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{test} +] utf8: abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{utf8} +] ------------------------------------------------ $epreq -> config -> output_esc_charset = 1 [- $epreq -> config -> output_esc_charset (1) -] $escmode = $escmodestd ; [- $escmode = $escmodestd ; -]