#!/bin/perl

%desired = (
        Port => 1,
        Port_Aliases => 1,
        Port_Flags => undef,
        Port_Info => undef,
        name => undef,
);

foreach $r (
        q/^[A-Z].*(?<!_Flags)$/,
        q/^[A-Z].*(?!_Flags$)/,
        q/^[A-Z].*(?(?=_Flags)\s$|$)/,
        q/^[A-Z].*((?<!_Flags)|(?<!_Info))$/,
        q/^[A-Z].*((?!_Flags$)|($!_Info$))$/,
        q/^[A-Z].*((?>_(Flags|Info))\s|)$/,
        q/^[A-Z].*(?<!_(?:Flags|Info))$/,
        ) {
        print "\ntesting /$r/\n";
        foreach (sort keys %desired) {
                $expected = $desired{$_};
                $result = /$r/x;
                $msg = ($result == $expected) ? 'ok' : 'ng';
                print "'$_'\t$msg, got '$result', expected '$expected'\n";
        }
}