#!/usr/bin/perl -w

use strict;
use Getopt::Std;
use File::Basename;
use Data::Dumper;

use lib '/app/tools/common/lib';
use Common::RSApp;

use lib '/app/tools/metadata/lib';
use Metadata::Validate::Album;
use Validate::Util;
use Metadata::Rule::CurrentData;

MAIN: {
    my $catalog_id = "AZ21233";

    #my $catalog_id = "1101";

    my $appSingleton = new Common::RSApp( clientID => 14 );

    my $album = new Metadata::Rule::CurrentData;

    $album->destination_table("album");
    $album->destination_column("catalog_number");

    printf( "Current Data Test: %s\n", $album->ok("$catalog_id") == 0 ? "passed" : "failed" )
      if ( $album->is_configured() );

}