Add code and tests

[text-homestuck.git] / t / Text-Homestuck.t

diff --git a/t/Text-Homestuck.t b/t/Text-Homestuck.t
index f5a220a5d49177adf7d1b1612b6d3458e678f53e..094cd9aefbed49a7db1414fa3f2e3b34f8bcdf50 100644 (file)
--- 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';