lib/Pod/t/contains_pod.t

   1 #!/usr/bin/env perl
   2
   3 # Copyright (C) 2005  Joshua Hoblitt
   4 #
   5 # $Id$
   6
   7 use strict;
   8
   9 BEGIN {
  10     if( $ENV{PERL_CORE} ) {
  11         chdir 't';
  12         @INC = '../lib';
  13     } else {
  14         use lib qw( ./lib );
  15     }
  16 }
  17
  18
  19 use Test::More tests => 1;
  20
  21 use Pod::Find qw( contains_pod );
  22
  23 {
  24     ok(contains_pod('lib/contains_pod.xr'), "contains pod");
  25 }