X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F02git_object.t;h=92b3710aa3a4e21fec19c6dcc404591b4b0bb10b;hb=54368e9d6c4c36b040e10a19c50482a530d00115;hp=ef31017465af8ad5713791ae9a487b06b1c43237;hpb=e45781b4160fc9cb600e0e56adb1168de42060c8;p=catagits%2FGitalist.git diff --git a/t/02git_object.t b/t/02git_object.t index ef31017..92b3710 100644 --- a/t/02git_object.t +++ b/t/02git_object.t @@ -29,18 +29,15 @@ is($object->mode, 16384, 'mode is correct'); is($object->modestr, 'd---------', "modestr is correct" ); is($object->size, 33, "size is correct"); -# Create object from hash. +# Create object from sha1. my $obj2 = Gitalist::Git::Object->new( project => $project, sha1 => '5716ca5987cbf97d6bb54920bea6adde242d87e6', - file => 'file1', - mode => 33188, ); isa_ok($obj2, 'Gitalist::Git::Object'); is($obj2->sha1,'5716ca5987cbf97d6bb54920bea6adde242d87e6', 'sha1 is correct'); is($obj2->type, 'blob', 'type is correct'); -is($obj2->file, 'file1', 'file is correct'); -is($obj2->mode, 33188, 'mode is correct'); -is($obj2->modestr, '-rw-r--r--', "modestr is correct" ); +is($obj2->mode, 0, 'mode is correct'); +is($obj2->modestr, '?---------', "modestr is correct" ); is($obj2->contents, "bar\n", 'obj2 contents is correct'); is($obj2->size, 4, "size is correct");