my $md5_path = $pp->get_md5_path($path);
is($md5_path, $pp->_add_md5_to_path($content->{path}, $content->{md5}), "get valid md5path");
+ # check ggziped content
+ my $gunzipped;
+ my $c = $content->{gz_content};
+ gunzip(\$c, \$gunzipped);
+ ok(Encode::decode_utf8($gunzipped) eq $content->{content}, "valid gzipped content");
+
# expire all cache
$pp->expire_cache($md5_path, "all");
my $content_nocache = $pp->get_content("$md5_path");
is_deeply($content_nocache, $content, "valid nocache read");
is_deeply($content_cached, $content, "valid cached read");
is_deeply($content_kvs, $content, "valid kvs cached read");
-
- # check gziped content
- my $gunzipped;
- my $c = $content_nocache->{gz_content};
- gunzip(\$c, \$gunzipped);
- ok(Encode::decode_utf8($gunzipped) eq $content_nocache->{content}, "valid gzipped content_nocache");
-
- $c = $content_kvs->{gz_content};
- gunzip(\$c, \$gunzipped);
- ok(Encode::decode_utf8($gunzipped) eq $content_kvs->{content}, "valid gzipped content_kvs");
-
+}
-}
done_testing();