--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib/project_test.pl	Fri Dec 09 11:56:56 2011 -0500
@@ -0,0 +1,37 @@
+#/bin/perl
+
+require 'config.pl';
+require 'project_man.pl';
+
+&set_project_status("jesse_test1", 1, 0);
+&set_project_status("jesse_test2", 1, 1);
+&set_project_status("jesse_test3", 1, 0);
+&set_project_status("jesse_test1", 0, 1);
+&set_project_status("aaron_test1", 1, 1);
+
+
+my $projects_ref = &get_project_list("");
+print "All:\n";
+foreach my $project (@{$projects_ref}) {
+    print "\t$project\n";
+}
+
+$projects_ref = &get_project_list("aaron_");
+print "\nAaron:\n";
+foreach my $project (@{$projects_ref}) {
+    print "\t$project\n";
+}
+
+$projects_ref = &get_project_list("jesse_");
+print "\nJesse:\n";
+foreach my $project (@{$projects_ref}) {
+    print "\t$project\n";
+}
+
+&delete_project("aaron_test1");
+$projects_ref = &get_project_list("");
+print "\nAll (aaron deleted):\n";
+foreach my $project (@{$projects_ref}) {
+    print "\t$project\n";
+}
+