3c99391d93
In some cases the license-identification header was missing, so I added that as well. Replaced the remaining headers that specifically identified "Versions 3.13.7 and higher". Makefiles and the build system were deliberately excluded.
27 lines
940 B
Prolog
27 lines
940 B
Prolog
#!/usr/bin/env perl
|
|
######################################################################
|
|
# SPDX-License-Identifier: EPICS
|
|
# EPICS BASE is distributed subject to a Software License Agreement
|
|
# found in file LICENSE that is included with this distribution.
|
|
######################################################################
|
|
|
|
use lib '@TOP@/lib/perl';
|
|
|
|
use Test::More tests => 9;
|
|
|
|
use DBD::Breaktable;
|
|
|
|
my $bpt = DBD::Breaktable->new('test');
|
|
isa_ok $bpt, 'DBD::Breaktable';
|
|
is $bpt->name, 'test', 'Breakpoint table name';
|
|
is $bpt->points, 0, 'Points == zero';
|
|
$bpt->add_point(0, 0.5);
|
|
is $bpt->points, 1, 'First point added';
|
|
is_deeply $bpt->point(0), [0, 0.5], 'First point correct';
|
|
$bpt->add_point(1, 1.5);
|
|
is $bpt->points, 2, 'Second point added';
|
|
is_deeply $bpt->point(0), [0, 0.5], 'First point still correct';
|
|
is_deeply $bpt->point(1), [1, 1.5], 'Second point correct';
|
|
is_deeply $bpt->point(2), undef, 'Third point undefined';
|
|
|