[MKDoc-commit] [Petal] test for ${1} appearance when Petal::I18N->process

[bruno at mkdoc.demon.co.uk]

Log Message:
-----------
[Petal] test for ${1} appearance when Petal::I18N->process

Modified Files:
--------------
    Petal:
        Changes

Added Files:
-----------
    Petal/t:
        090_dollarone-again.t
    Petal/t/data:
        dollarone-again.xml

-------------- next part --------------
Index: Changes
===================================================================
RCS file: /var/spool/cvs/Petal/Changes,v
retrieving revision 1.135
retrieving revision 1.136
diff -LChanges -LChanges -u -r1.135 -r1.136
--- Changes
+++ Changes
@@ -3,6 +3,7 @@
 2.17
     - check that   becomes chr(160) not chr(194) (William McKee)
     - Fix bug where \-escaped semicolons were not recognised (William McKee)
+    - test 090 for ${1} appearance when Petal::I18N->process
 
 2.16 Fri Mar 18 15:30:00 2005
     - Added Cookbook.pod documentation and associated tests from William McKee
--- /dev/null
+++ t/090_dollarone-again.t
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use lib ('lib');
+use Test::More 'no_plan';
+use Petal;
+
+$Petal::BASE_DIR = './t/data/';
+$Petal::DISK_CACHE = 0;
+$Petal::MEMORY_CACHE = 0;
+$Petal::TAINT = 1;
+
+#use Petal::TranslationService::h4x0r;
+#$Petal::TranslationService = Petal::TranslationService::h4x0r->new();
+
+my $template = new Petal (file => 'dollarone-again.xml');
+my $string   = $template->process;
+my $res = Petal::I18N->process ($string);
+
+TODO: {
+local $TODO = 'shouldn\'t output internal ${1} representation';
+
+unlike ($res, '/\$\{1\}/');
+};
+
--- /dev/null
+++ t/data/dollarone-again.xml
@@ -0,0 +1,11 @@
+<p
+  i18n:translate="stuff"
+>
+  Here be stuff
+  <input
+    type="submit"
+    value="Save"
+    i18n:attributes="value save;"
+  />
+</p>
+