t/20-ok.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::Leaner tests => 4 + 1;
   7
   8 ok 1;
   9 ok !!1,    'ok() test with a description';
  10 ok 0.001,  'a float is fine too';
  11 ok +{},    'a hash ref is fine too';
  12
  13 my @array = (undef);
  14 ok @array, 'ok() forces scalar context';