[Bps-public-commit] net-lighthouse branch, master, updated. d04b74a892643d924b754b684cb5b5fb3239f883

[sunnavy at bestpractical.com]

The branch, master has been updated
       via  d04b74a892643d924b754b684cb5b5fb3239f883 (commit)
      from  7beaf8b3488f4ba5c59c6c2767afb71dd04815da (commit)

Summary of changes:
 t/11-message.t |   29 +++++++++++++++++++++++++++++
 1 files changed, 29 insertions(+), 0 deletions(-)
 create mode 100644 t/11-message.t

- Log -----------------------------------------------------------------
commit d04b74a892643d924b754b684cb5b5fb3239f883
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Thu Aug 27 16:00:37 2009 +0800

    test attrs for message

diff --git a/t/11-message.t b/t/11-message.t
new file mode 100644
index 0000000..dbdb0ee
--- /dev/null
+++ b/t/11-message.t
@@ -0,0 +1,29 @@
+use strict;
+use warnings;
+
+use Test::More tests => 21;
+use Test::Mock::LWP;
+
+use_ok('Net::Lighthouse::Project');
+use_ok('Net::Lighthouse::Project::Message');
+can_ok( 'Net::Lighthouse::Project::Message', 'new' );
+
+my $message = Net::Lighthouse::Project::Message->new;
+isa_ok( $message, 'Net::Lighthouse::Project::Message' );
+isa_ok( $message, 'Net::Lighthouse' );
+
+my @attrs = (
+    'created_at',        'comments',
+    'body_html',         'user_name',
+    'permalink',         'body',
+    'comments_count',    'parent_id',
+    'url',               'updated_at',
+    'id',                'user_id',
+    'project_id',        'all_attachments_count',
+    'attachments_count', 'title',
+);
+
+for my $attr (@attrs) {
+    can_ok( $message, $attr );
+}
+

-----------------------------------------------------------------------