make tests less noisy

frioux · Mar 4, 2014 · 632a8f7 · 632a8f7
1 parent 54184e0
commit 632a8f7
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/t/resultset/date-methods-1.t b/t/resultset/date-methods-1.t
@@ -30,7 +30,12 @@ has [map "${_}_sql_by_part", qw(pluck add)] => (
    default => sub { {} },
 );
 
-sub skip_reason { 'set ' . join(q<, >, shift->env_vars) . ' to run these tests' }
+has _skip_msg_once => ( is => 'rw' );
+sub skip_reason {
+   return '(see above)' if $_[0]->_skip_msg_once;
+   $_[0]->_skip_msg_once(1);
+   'set ' . join(q<, >, shift->env_vars) . ' to run these tests'
+}
 
 sub env_vars {
    my $self = shift;