#!/usr/bin/perl
###################################################
#
# test of package post
#
###################################################
use strict;
use warnings;
use diagnostics;
use Post;

  my $post = Post->new();
  my $threadname = "testing";
  my $username = "FooMan";
  my $postbody = "i m teh 1337 haxxor";
  $post->set_post($threadname, $username, $postbody);
  $post->save_post();





