File Coverage

gen/syn-HH_Unispool_Config_Entry_RemoteSystem_3.pl

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	24	24	100.0

# Information on remote system type 0 is obtained through an
# informal document. I guess this remote system type is out
# of fashion...

use strict;

use HH::Unispool::Config;
use HH::Unispool::Config::OS;
use HH::Unispool::Config::Scope;
use HH::Unispool::Config::Entry::System;
use HH::Unispool::Config::Entry::RemoteSystem::3;

# Create a config from scratch with a _Local_ scope
my $conf = HH::Unispool::Config->new( {
    scope => HH::Unispool::Config::Scope->new ( {
        scope => [ qw( _Local_) ],
    } ),
} );

# Create the _Local_ system and add it to the configuration
my $sysn = HH::Unispool::Config::Entry::System->new( {
    name => '_Local_',
    local_system_name => 'foo',
    network_name => 'foo.bar.org',
    os => HH::Unispool::Config::OS->new( {
        os => 'Solaris',
    } ),
} );
$conf->add_system($sysn);

# Add a type 3 remote system to _Local_
my $dev = HH::Unispool::Config::Entry::RemoteSystem::3->new( {
    name => 'rsys3',
    acct => 'fred',
    apass => '123wilma',
    upass => '123pebbles',
    remote_node_name => 'barney.bedrock.org',
} );
$sysn->add_remote_system($dev);

# Write the configuration
$conf->write('t/config.sample.r3.out');
1;