From e76b691e78e273226cba9284cb8cd22a423319ed Mon Sep 17 00:00:00 2001
From: Jules Laplace <carbon@melanarchy.org>
Date: Fri, 2 Aug 2013 17:23:25 -0500
Subject: bucky2

---
 bucky2/t/get-keyword.pl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100755 bucky2/t/get-keyword.pl

(limited to 'bucky2/t/get-keyword.pl')

diff --git a/bucky2/t/get-keyword.pl b/bucky2/t/get-keyword.pl
new file mode 100755
index 0000000..61baa84
--- /dev/null
+++ b/bucky2/t/get-keyword.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+use lib "../lib";
+use Bucky;
+use Data::Dumper;
+
+my $id = $ARGV[0] || 624;
+my $bucky = new Bucky;
+
+my $thread = $bucky->thread($id);
+print "Got a thread: " . $thread->_title . "\n";
+#print Dumper($thread);
+my $keyword = $thread->keyword;
+print "Got a keyword: " . $thread->_keyword . " / " . $keyword->_keyword . "\n";
+#print Dumper($keyword);
+# print "This many comments: " . scalar @{ $thread->comments } . "\n";
+# print "This many files: " . scalar @{ $thread->files } . "\n";
+# print "First comment: " . scalar @{ $thread->comments->[0] } . "\n";
+
-- 
cgit v1.2.3-70-g09d2