is($object->type, 'tree', 'type is correct');
is($object->file, 'dir1', 'file is correct');
is($object->mode, 16384, 'mode is correct');
-is($object->modestr, 'd---------', "modestr is correct" );
+is($object->modestr, 'drwxr-xr-x', "modestr is correct" );
is($object->size, 33, "size is correct");
# Create object from sha1.
is($obj2->sha1,'5716ca5987cbf97d6bb54920bea6adde242d87e6', 'sha1 is correct');
is($obj2->type, 'blob', 'type is correct');
is($obj2->mode, 0, 'mode is correct');
-is($obj2->modestr, '?---------', "modestr is correct" );
+is($obj2->modestr, '----------', "modestr is correct" );
is($obj2->content, "bar\n", 'obj2 contents is correct');
is($obj2->size, 4, "size is correct");
dies_ok {
+bar
--') == 0, 'commit_obj->get_patch can return a patch');
-like(do { local $/; my $fh = $commit_obj->get_patch(undef, 3); <$fh> },
- qr!PATCH 2/2!, 'commit_obj->get_patch can return a patchset');
-
+# Note - 2 patches = 3 parts due to where we split.
+{
+ my @bits = split /Subject: \[PATC/, do { local $/; my $fh = $commit_obj->get_patch(undef, 3); <$fh> };
+ is(scalar(@bits), 3,
+ 'commit_obj->get_patch can return a patchset');
+}
done_testing;