added test (and fixtures) for dir_size

t/fixtures/dir_size/README1

@@ -0,0 +1,2 @@
+don't change this file or any in/under this dir
+if you do, you'll break the dir_size test in t/job_metrics.t

t/fixtures/dir_size/README2

@@ -0,0 +1 @@
+also don't change this file, please

t/fixtures/dir_size/subdir/README3

@@ -0,0 +1 @@
+and most importantly don't change this file either, sill-voo-play

t/job_metrics.t

@@ -102,23 +102,44 @@ describe "HTFeed::JobMetrics" => sub {
         # The "tolerance" is somewhat arbitrary, for testing purposes only,
         # since we're not really testing that Time::HiRes works as promised,
         # but rather that our assumptions around time are correct.
-        my $t1                     = HTFeed::JobMetrics->time;
+        my $t1                     = $jm->time;
         my $sleep_time             = 0.1;
         my $sleep_time_in_microsec = $sleep_time * 1000000;
         my $resolution_tolerance   = 0.01;
 
         usleep $sleep_time_in_microsec;
-        my $t2      = HTFeed::JobMetrics->time;
+        my $t2      = $jm->time;
         my $delta_t = $t2 - $t1;
 
         # Now prove that t1 and t2 are (very close to) 0.25 sec apart.
         # Numbers will be relatively similar to:
         # t1: e.24969, t2: e.50003, delta_t: 0.250342845916748
         # ... where e is the current epoch in whole seconds
-        ok(    ($delta_t  - $sleep_time) < $resolution_tolerance);
-        # e.g. (0.103... - 0.1         ) < 0.01
+        ok(    ($delta_t - $sleep_time) < $resolution_tolerance);
+        # e.g. (0.103... - 0.1        ) < 0.01
     };
+    it "reports dir size, recursively, with bytes as base unit" => sub {
+        # To check that it counts file sizes recursively,
+        # we have this fixture dir:
+        #
+        # feed/t/fixtures/dir_size$ tree
+        # .
+        # ├── README1 (108B)
+        # ├── README2 (36B)
+        # └── subdir
+        #     └── README3 (66B)
+        #
+        # Please don't change anything in these fixture dirs,
+        # without also updating the dir sizes in this test.
 
+        my $dir                  = "/usr/local/feed/t/fixtures/dir_size";
+        my $expected_dir_size    = 210; # (108 + 36) + 66
+        my $subdir               = "$dir/subdir";
+        my $expected_subdir_size = 66;
+
+        ok($jm->dir_size($dir)    == $expected_dir_size);
+        ok($jm->dir_size($subdir) == $expected_subdir_size);
+    };
     # TESTS todo
     it "could have some histogram tests once we figure out histograms" => sub {};
     # TESTS end