The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
#!/usr/bin/perl

use strict;
use warnings;
use Test::More tests => 4;
use FabForce::DBDesigner4::Table qw(:const);

is( IDENTIFYING_1_TO_1    , 0, 'id 1:1'  );
is( IDENTIFYING_1_TO_N    , 1, 'id 1:n'  );
is( NON_IDENTIFYING_1_TO_N, 2, 'nid 1:n' );
is( NON_IDENTIFYING_1_TO_1, 5, 'nid 1:1' );