1#!/usr/bin/perl
2
3use strict;
4use Test::More tests => 2;
5use Test::NoWarnings;
6
7pass("just testing");
8
9# if it's working properly, only the parent will conduct a warnings test
10my $pid = fork;
11die "Forked failed, $!" unless defined $pid;
12