init

bml/test/escape/_config.bml

@@ -0,0 +1,9 @@
+LookRoot $testlookroot
+DefaultScheme scheme
+DefaultLanguage en
+
+AllowOldSyntax 0
+AllowCode 1
+AllowTemplateCode 1
+
+

bml/test/escape/ea.bml

@@ -0,0 +1,34 @@
+Escape HTML tags:
+<?_ea In structural HTML, the <b> tag should be replaced with <strong> and the
+<i> tag with <em>. _ea?>
+
+Escape a code example:
+<pre><code><?_ea
+# Overload Apache::FakeRequest's print to append output to a variable.
+{
+	no warnings 'redefine';
+	*Apache::FakeRequest::print = sub {
+		my $r = shift;
+		$Output .= join('', @_)
+	};
+	*Apache::FakeRequest::log_error = sub {
+		my $r - shift;
+		print STDERR @_, "\n"; $Errout .= join('', @_)
+	};
+	*Apache::FakeRequest::pnotes = sub {
+		my ( $r, $key ) = @_;
+		$Pnotes->{ $key } = shift if @_;
+		$Pnotes->{ $key };
+	};
+}
+_ea?></code></pre>
+
+Escape old-style syntax:
+<?_ea Tags in BML used to be like (=this=), but that format has since been
+deprecated. _ea?>
+
+Escape new-style syntax:
+<?_ea Now tags in BML look like: <?foo?>. _ea?>
+
+
+

bml/test/escape/ea.correct

@@ -0,0 +1,32 @@
+Escape HTML tags:
+In structural HTML, the <b> tag should be replaced with <strong> and the
+<i> tag with <em>.
+
+Escape a code example:
+<pre><code># Overload Apache::FakeRequest&#39;s print to append output to a variable.
+{
+	no warnings &#39;redefine&#39;;
+	*Apache::FakeRequest::print = sub {
+		my $r = shift;
+		$Output .= join(&#39;&#39;, @_)
+	};
+	*Apache::FakeRequest::log_error = sub {
+		my $r - shift;
+		print STDERR @_, &quot;\n&quot;; $Errout .= join(&#39;&#39;, @_)
+	};
+	*Apache::FakeRequest::pnotes = sub {
+		my ( $r, $key ) = @_;
+		$Pnotes-&gt;{ $key } = shift if @_;
+		$Pnotes-&gt;{ $key };
+	};
+}</code></pre>
+
+Escape old-style syntax:
+Tags in BML used to be like (= this =), but that format has since been
+deprecated.
+
+Escape new-style syntax:
+Now tags in BML look like: &lt;?foo?&gt;.
+
+
+

bml/test/escape/eb.bml

@@ -0,0 +1,7 @@
+Escape old-style syntax:
+<?_eb Tags in BML used to be like (=this=), but that format has since been
+deprecated. _eb?>
+
+Escape new-style syntax:
+<?_eb Now tags in BML look like: <?foo?>. _eb?>
+

bml/test/escape/eb.correct

@@ -0,0 +1,7 @@
+Escape old-style syntax:
+Tags in BML used to be like (= this =), but that format has since been
+deprecated.
+
+Escape new-style syntax:
+Now tags in BML look like: <?foo?>.
+

bml/test/escape/eh.bml

@@ -0,0 +1,26 @@
+Escape HTML tags:
+<?_eh In structural HTML, the <b> tag should be replaced with <strong> and the
+<i> tag with <em>. _eh?>
+
+Escape a code example:
+<pre><code><?_eh
+# Overload Apache::FakeRequest's print to append output to a variable.
+{
+	no warnings 'redefine';
+	*Apache::FakeRequest::print = sub {
+		my $r = shift;
+		$Output .= join('', @_)
+	};
+	*Apache::FakeRequest::log_error = sub {
+		my $r - shift;
+		print STDERR @_, "\n"; $Errout .= join('', @_)
+	};
+	*Apache::FakeRequest::pnotes = sub {
+		my ( $r, $key ) = @_;
+		$Pnotes->{ $key } = shift if @_;
+		$Pnotes->{ $key };
+	};
+}
+_eh?></code></pre>
+
+

bml/test/escape/eh.correct

@@ -0,0 +1,24 @@
+Escape HTML tags:
+In structural HTML, the <b> tag should be replaced with <strong> and the
+<i> tag with <em>.
+
+Escape a code example:
+<pre><code># Overload Apache::FakeRequest&#39;s print to append output to a variable.
+{
+	no warnings &#39;redefine&#39;;
+	*Apache::FakeRequest::print = sub {
+		my $r = shift;
+		$Output .= join(&#39;&#39;, @_)
+	};
+	*Apache::FakeRequest::log_error = sub {
+		my $r - shift;
+		print STDERR @_, &quot;\n&quot;; $Errout .= join(&#39;&#39;, @_)
+	};
+	*Apache::FakeRequest::pnotes = sub {
+		my ( $r, $key ) = @_;
+		$Pnotes-&gt;{ $key } = shift if @_;
+		$Pnotes-&gt;{ $key };
+	};
+}</code></pre>
+
+

bml/test/escape/eu.bml

@@ -0,0 +1,3 @@
+Escaped URL characters:
+http://www.fruit-jar.com/booklist?title=<?_eu 21 Things to do with Excess !%$@#!@#@# Punctuation _eu?>
+

bml/test/escape/eu.correct

@@ -0,0 +1,3 @@
+Escaped URL characters:
+http://www.fruit-jar.com/booklist?title=21+Things+to+do+with+Excess+%21%25%24%40%23%21%40%23%40%23+Punctuation
+

bml/test/escape/scheme.look

@@ -0,0 +1 @@
+