summaryrefslogtreecommitdiff
path: root/t/07-class-xpath.t
diff options
context:
space:
mode:
authordakkar <dakkar@sardina.(none)>2009-06-28 11:32:05 +0200
committerdakkar <dakkar@sardina.(none)>2009-06-28 11:32:05 +0200
commitbafdd1bf402e0970facd7fdb29438596621dcd52 (patch)
treeac01bcfd2efa6ed4dbf82890aa888b8a89a20681 /t/07-class-xpath.t
parentwon't use PPIx::Class 1.x, it's too broken (diff)
downloadTree-Transform-XSLTish-class-xpath.tar.gz
Tree-Transform-XSLTish-class-xpath.tar.bz2
Tree-Transform-XSLTish-class-xpath.zip
rename, since we're not actually using Class::XPathclass-xpath
Diffstat (limited to 't/07-class-xpath.t')
-rw-r--r--t/07-class-xpath.t41
1 files changed, 0 insertions, 41 deletions
diff --git a/t/07-class-xpath.t b/t/07-class-xpath.t
deleted file mode 100644
index 7702993..0000000
--- a/t/07-class-xpath.t
+++ /dev/null
@@ -1,41 +0,0 @@
-#!perl
-package main;
-use Test::Most 'die';
-BEGIN {
- eval 'use PPIx::XPath 2.00';
- plan skip_all => 'PPIx::XPath 2.00 needed for this test' if $@;
-}
-
-package PPITransform;{
- use Tree::Transform::XSLTish;
- use strict;
- use warnings;
-
- default_rules;
-
- tree_rule match => 'Statement-Sub', action => sub {
- return $_[0]->it->name.$_[0]->it->prototype;
- };
-
-}
-
-package main;
-use strict;
-use warnings;
-use PPI;
-
-plan tests=>1;
-
-{
-my $doc=PPI::Document->new(\<<'EOP');
-sub gino($%) {}
-sub pino {}
-
-gino(\&pino,{1=>2});
-EOP
-
-my $trans=PPITransform->new();
-
-my @results=$trans->transform($doc);
-is_deeply \@results,['gino($%)','pino'],'PPI example';
-}