fix tests

Author: kfly8

t/builder/basic.t

@@ -4,28 +4,14 @@ use PerlUsersJP::Builder;
 use Path::Tiny qw(path);
 
 my $builder = PerlUsersJP::Builder->new(
-    src_dir     => './src',
-    docs_dir    => './docs',
+    content_dir => './content',
+    public_dir  => './public',
     layouts_dir => './layouts',
 );
 
-subtest 'dest_dir' => sub {
-    is $builder->dest_dir(path('src/foo/bar/text.md')), 'docs/foo/bar';
-    is $builder->dest_dir(path('src/index.md')), 'docs';
-};
-
-subtest 'is_entry' => sub {
-    ok $builder->is_entry(path('src/foo/bar/text.md'));
-    ok $builder->is_entry(path('src/foo/bar/text.markdown'));
-    ok $builder->is_entry(path('src/foo/bar/text.txt'));
-    ok !$builder->is_entry(path('src/foo/bar/text.css'));
-};
-
-subtest 'detect_format' => sub {
-    is $builder->detect_format(path('src/foo/bar/text.md')), 'markdown';
-    is $builder->detect_format(path('src/foo/bar/text.markdown')), 'markdown';
-    is $builder->detect_format(path('src/foo/bar/text.txt')), 'hatena';
-    is $builder->detect_format(path('src/foo/bar/text.css')), undef;
+subtest 'to_public' => sub {
+    is $builder->to_public(path('content/foo/bar/text.md')), 'public/foo/bar/text.md';
+    is $builder->to_public(path('content/index.md')), 'public/index.md';
 };
 
 

t/entry/basic.t

@@ -0,0 +1,27 @@
+use Test2::V0;
+
+use PerlUsersJP::FrontMatter;
+
+subtest 'parse_meta' => sub {
+    my $raw_meta = <<~ "...";
+    some title
+    meta-author: some author
+    meta-description: some description
+    ...
+
+    is PerlUsersJP::FrontMatter::_parse_meta($raw_meta), {
+        title       => 'some title',
+        author      => 'some author',
+        description => 'some description',
+    };
+};
+
+subtest 'detect_entry_format' => sub {
+    is(PerlUsersJP::FrontMatter::_detect_entry_format('src/foo/bar/text.md'), 'markdown');
+    is(PerlUsersJP::FrontMatter::_detect_entry_format('src/foo/bar/text.markdown'), 'markdown');
+    is(PerlUsersJP::FrontMatter::_detect_entry_format('src/foo/bar/text.txt'), 'hatena');
+    is(PerlUsersJP::FrontMatter::_detect_entry_format('src/foo/bar/text.css'), undef);
+};
+
+
+done_testing;