Some tests for Embperl

[- use Cwd (); -] optDisableChdir:[+ $optDisableChdir +]
optDisableFormData: [+ $optDisableFormData +]
Script CWD: [+ $script = Cwd::fastcwd() +]
Embperl CWD: [+ $ep = $HTML::Embperl::cwd +]
Equal: [+ $script eq $ep?'Yes':'No' +]
Diff CWD: [+ do { $script =~ /$ep/ ; ">$'<" } +]
Test/html: [+ $script =~ /test(?:\/|\\)html$/?'yes':'no' +] [- @ks = sort keys %fdat -]

[+ $ks[$row] +] | [+ $fdat{$ks[$row] || ''} +]