t/20-ok.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 BEGIN { delete $ENV{PERL_TEST_LEANER_USES_TEST_MORE} }
   7
   8 use Test::Leaner tests => 4 + 1 + 2 + 1;
   9
  10 ok 1;
  11 ok !!1,    'ok() test with a description';
  12 ok 0.001,  'a float is fine too';
  13 ok +{},    'a hash ref is fine too';
  14
  15 my @array = (undef);
  16 ok @array, 'ok() forces scalar context';
  17
  18 my $ret = ok 1;
  19 ok $ret, 'ok(true) returns true';
  20
  21 {
  22  package Test::Leaner::TestOverload::AlwaysTrue;
  23
  24  use overload (
  25   'bool' => sub { 1 },
  26   '""'   => sub { '' },
  27  );
  28
  29  sub new { bless { }, shift }
  30 }
  31
  32 my $z = Test::Leaner::TestOverload::AlwaysTrue->new;
  33
  34 ok $z, 'ok($overloaded_true)';