use Rcs;
#use RCS;
use Rcs::Parser;
 # create a Rcs instance for the test case's revision info
        my $rcsObj = Rcs->new;
        $rcsObj->rcsdir(dirname($rcsDir));
        $rcsObj->workdir(dirname($rcsDir));
        $rcsObj->file($testCaseName);
        my $rcstestcasename=$rcsObj->file($testCaseName); 
        print "FileName:$rcstestcasename\n";

        # abstract interesting revision info
     my @all_testcase_versions=$rcsObj->revisions;
     print "All Testcase Versions:@all_testcase_versions\n";

        my $rcs = Rcs::Parser->new;
        my $ret = $rcs->load($rcstestcasename);
        my $specific_version = $rcs->get('1.2');
        print "1.2version:$specific_version\n";

    }; # end of eval