The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

FIBO / PNI-0.24 / t / _node-perlvar-osname.t 

            

              
1
2
3
4
5
6
7
8
9

              
use strict;
use warnings;
use Test::More tests => 2;
use PNI::Node::Perlvar::Osname;
my $node = PNI::Node::Perlvar::Osname->new;
isa_ok $node, 'PNI::Node::Perlvar::Osname';
is $node->out->data, $^O;