#!/usr/bin/perl -w

# Test for 'Name "Foo::TODO" used only once: possible typo' warning.
# It shows up when a test function is called at BEGIN time in a
# package which is not the one Test::More was exported to.

use strict;
use warnings;

use Test::More;

BEGIN {
    package Foo;
    ::is( 23, 23 );
}

done_testing;