Permalink
Browse files

remove tests that are now part of HTML::FormHelpers

  • Loading branch information...
1 parent 328d469 commit 9f415155f192e48d88e66172ca1c5ee039d238e9 @perlpilot committed Dec 19, 2011
Showing with 0 additions and 94 deletions.
  1. +0 −8 t/00-basic.t
  2. +0 −27 t/01-button.t
  3. +0 −16 t/02-hidden.t
  4. +0 −16 t/03-text.t
  5. +0 −27 t/foo
View
@@ -1,8 +0,0 @@
-#!/usr/bin/env perl
-
-use 5.10.0;
-use Test::More tests => 1;
-
-BEGIN { use_ok 'Dancer::Plugin::TTHelpers' }
-
-1;
View
@@ -1,27 +0,0 @@
-#!/usr/bin/env perl
-
-use 5.10.0;
-use Test::More tests => 8;
-use Dancer::Plugin::TTHelpers;
-use Test::XPath;
-
-{
- my $generated = Dancer::Plugin::TTHelpers::button('foo');
- my $tx = Test::XPath->new( xml => $generated, is_html => 1 );
-
- $tx->ok('//input', 'Has input tag');
- $tx->ok('//input[@type="button"]', 'input tag is a button');
- $tx->ok('//input[@name="foo"]', 'input tag has name attr with value "foo"');
- $tx->ok('//input[@value="foo"]', 'input tag has value attr with value "foo"');
-}
-
-{
-
- my $generated = Dancer::Plugin::TTHelpers::button('foo', 'bar');
- my $tx = Test::XPath->new( xml => $generated, is_html => 1 );
-
- $tx->ok('//input', 'Has input tag');
- $tx->ok('//input[@type="button"]', 'input tag is a button');
- $tx->ok('//input[@name="foo"]', 'input tag has name attr with value "foo"');
- $tx->ok('//input[@value="bar"]', 'input tag has value attr with value "bar"');
-}
View
@@ -1,16 +0,0 @@
-#!/usr/bin/env perl
-
-use 5.10.0;
-use Test::More tests => 4;
-use Dancer::Plugin::TTHelpers;
-use Test::XPath;
-
-{
- my $generated = Dancer::Plugin::TTHelpers::hidden('foo','bar');
- my $tx = Test::XPath->new( xml => $generated, is_html => 1 );
-
- $tx->ok('//input', "Has input tag");
- $tx->ok('//input[@type="hidden"]', "\ttype = hidden");
- $tx->ok('//input[@name="foo"]', "\tname = foo");
- $tx->ok('//input[@value="bar"]', "\tvalue = bar");
-}
View
@@ -1,16 +0,0 @@
-#!/usr/bin/env perl
-
-use 5.10.0;
-use Test::More tests => 4;
-use Dancer::Plugin::TTHelpers;
-use Test::XPath;
-
-{
- my $generated = Dancer::Plugin::TTHelpers::text('foo', 'bar');
- my $tx = Test::XPath->new( xml => $generated, is_html => 1 );
-
- $tx->ok('//input', "Has input tag");
- $tx->ok('//input[@type="text"]', "\ttype = text");
- $tx->ok('//input[@name="foo"]', "\tname = 'foo'");
- $tx->ok('//input[@value="bar"]', "\tvalue = 'bar'");
-}
View
27 t/foo
@@ -1,27 +0,0 @@
-#!/usr/bin/env perl
-
-use 5.10.0;
-use Test::More tests => 8;
-use Dancer::Plugin::TTHelpers;
-use Test::XPath;
-
-{
- my $generated = Dancer::Plugin::TTHelpers::button('foo');
- my $tx = Test::XPath->new( xml => $generated, is_html => 1 );
-
- $tx->ok('//input', 'Has input tag');
- $tx->ok('//input[@type="button"]', 'input tag is a button');
- $tx->ok('//input[@name="foo"]', 'input tag has name attr with value "foo"');
- $tx->ok('//input[@value="foo"]', 'input tag has value attr with value "foo"');
-}
-
-{
-
- my $generated = Dancer::Plugin::TTHelpers::button('foo', 'bar');
- my $tx = Test::XPath->new( xml => $generated, is_html => 1 );
-
- $tx->ok('//input', 'Has input tag');
- $tx->ok('//input[@type="button"]', 'input tag is a button');
- $tx->ok('//input[@name="foo"]', 'input tag has name attr with value "foo"');
- $tx->ok('//input[@value="bar"]', 'input tag has value attr with value "bar"');
-}

0 comments on commit 9f41515

Please sign in to comment.