Write Tests and Begin the Module

A few tests have been writen to set constraints and guides. The
very beginnings of the module have been writen as well.

lib/WebService/Slack/webhook.pm6

@@ -0,0 +1,14 @@
+#!/usr/bin/env perl6
+
+use Net::HTTP::POST;
+use JSON::Fast;
+
+#Make the class.
+class WebService::Slack::webhook {
+    #Make some vars.
+    has Str $!url;
+
+    #Make some methods to build the object.
+    multi method new(Str:D $var) { self.bless(:url($var)); }
+    multi method new($other?) { die "No Slack integration given!"; }
+}

t/01-use.t

@@ -0,0 +1,9 @@
+#!/usr/bin/env perl6
+
+use Test;
+use lib 'lib';
+
+#Make sure we can even call it.
+use-ok 'WebService::Slack::webhook';
+
+done-testing;

t/02-send.t

@@ -0,0 +1,18 @@
+#!/usr/bin/env perl6
+
+use Test;
+use lib 'lib';
+
+use WebService::Slack::webhook;
+
+#Make a bad object.
+dies-ok {WebService::Slack::webhook.new()},
+    'Bad object fails correctly';
+
+#Make a good object.
+my $slack = WebService::Slack::webhook.new("https://host.slack.com/example");
+isa-ok $slack,
+    'WebService::Slack::webhook',
+    'Good object can be made';
+
+done-testing;