cpan/Parse-CPAN-Meta/t/16_nullrefs.t

   1 #!/usr/bin/perl
   2
   3 # Testing for null references
   4
   5 BEGIN {
   6         if( $ENV{PERL_CORE} ) {
   7                 chdir 't';
   8                 @INC = ('../lib', 'lib');
   9         }
  10         else {
  11                 unshift @INC, 't/lib/';
  12         }
  13 }
  14
  15 use strict;
  16 BEGIN {
  17         $|  = 1;
  18         $^W = 1;
  19 }
  20
  21 use File::Spec::Functions ':ALL';
  22 use Parse::CPAN::Meta::Test;
  23 use Test::More tests(1);
  24
  25
  26
  27
  28
  29 #####################################################################
  30 # Example Empty References
  31
  32 yaml_ok(
  33         <<'END_YAML',
  34 --- []
  35 --- {}
  36 END_YAML
  37         [ [], {} ],
  38         'Empty references',
  39 );