aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorVíctor Moral <victor@venexma.es>2014-01-29 10:25:59 +0100
committerVíctor Moral <victor@venexma.es>2014-01-29 10:25:59 +0100
commit0d778bc05c27f9037ae1ae940c9521211367e21a (patch)
treee1c946f8a659e638dbfeff997d43460a546d945f
parent44257747eeaa90db0f82cf6754b262f5493cdea9 (diff)
downloadcdt-0d778bc05c27f9037ae1ae940c9521211367e21a.tar.gz
cdt-0d778bc05c27f9037ae1ae940c9521211367e21a.tar.bz2
cdt-0d778bc05c27f9037ae1ae940c9521211367e21a.zip
- Añadido un text para los elementos textuales
-rw-r--r--t/item-text.t25
1 files changed, 25 insertions, 0 deletions
diff --git a/t/item-text.t b/t/item-text.t
new file mode 100644
index 0000000..1561636
--- /dev/null
+++ b/t/item-text.t
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+use Modern::Perl;
+use Test::More;
+use lib qw(lib);
+use utf8;
+
+# Variables
+our $VERSION = '0.1';
+
+# Test de carga de la clase
+my $class = "CDT::Item::Text";
+use_ok( $class );
+
+# Test de creación de instancias
+my $obj = new_ok( $class );
+
+cmp_ok($obj->type,'eq','text','Item has text as type');
+cmp_ok($obj->format,'eq','plain','Text has plain as format');
+
+# Fin de test
+done_testing;
+
+1;
+