X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=t%2FText-Homestuck.t;h=094cd9aefbed49a7db1414fa3f2e3b34f8bcdf50;hb=6b060d8e14bd50fd91972f25f4011c8f861dcede;hp=f5a220a5d49177adf7d1b1612b6d3458e678f53e;hpb=4d0a1f46292ef64aa85b44819f10f1fe1805d1ad;p=text-homestuck.git

diff --git a/t/Text-Homestuck.t b/t/Text-Homestuck.t
index f5a220a..094cd9a 100644
--- a/t/Text-Homestuck.t
+++ b/t/Text-Homestuck.t
@@ -1,18 +1,70 @@
-# Before 'make install' is performed this script should be runnable with
-# 'make test'. After 'make install' it should work as 'perl Text-Homestuck.t'
-
-#########################
-
-# change 'tests => 1' to 'tests => last_test_to_print';
-
+#!/usr/bin/perl -w
+use 5.014000;
 use strict;
 use warnings;
 
-use Test::More tests => 1;
+use Test::More tests => 13;
 BEGIN { use_ok('Text::Homestuck') };
 
-#########################
+is aradia
+  'Did you set up the teams?',
+  'did y0u set up the teams',
+  'aradia';
+
+is tavros
+  'Are you ready to be trollllled?',
+  'aRE YOU READY TO BE TROLLLLLED,',
+  'tavros';
+
+is sollux
+  'kk dont flip your shit about this but Im setting you up to play a game with some people.',
+  'KK dont fliip your 2hiit about thii2 but iim 2ettiing you up two play a game wiith 2ome people.',
+  'sollux';
+
+is karkat
+  'Hi again, idiot.',
+  'HI AGAIN, IDIOT.',
+  'karkat';
+
+is nepeta
+  '*AC saunters from her dark cave a little bit sleepy from the recent kill*',
+  ':33 < *ac saunters from her dark cave a little bit sl33py from the recent kill*',
+  'nepeta';
+
+is kanaya
+  'Yes, that\'s right.',
+  'Yes Thats Right',
+  'kanaya';
+
+is vriska
+  'Marquise Spinneret Mindfang. :)',
+  'Marquise Spinneret Mindfang. ::::)',
+  'vriska';
+
+is vriska
+  'A big fucking bomb in the core of your battlefield.',
+  'A 8ig fucking 8om8 in the core of your 8attlefield.',
+  'vriska';
+
+is equius
+  'What are you expecting to accomplish with this?',
+  'D --> What are you e%pecting to accomplish with this',
+  'equius';
+
+TODO: {
+	local $TODO = 'Gamzee StUdLyCaPs not implemented';
+	is gamzee
+	  'It\'s a miracle.',
+	  'iT\'s A mIrAcLe.',
+	  'gamzee';
+}
 
-# Insert your test code below, the Test::More module is use()ed here so read
-# its man page ( perldoc Test::More ) for help writing this test script.
+is eridan
+  'your no good connivin fucking backstabbing girl crush that\'s who.',
+  'your no good connivvin fuckin backstabbin girl crush thats wwho',
+  'eridan';
 
+is feferi
+  'HELLO!',
+  ')(-ELLO!',
+  'feferi';