Calling subroutine

[pagarwalla1234]

Hi,

Below is the part of code from a test FW I am working on :

sub run {
 
    [i]my $self = shift;
    $self->SUPER::LogDirGen( );    #    priti
    my $config = new Config::Simple( $self->{ config } );
    my %config_hash = $config->vars( );
    print ("1..................");
    foreach ( @{ $self->{ queue } } ) {
    print ("2..................");
        Class::Autouse->load( $_ );
        my $test_object = $_->new( \%config_hash );
        my $test_name = $_;
        print ("test object is : $test_object......\n");
        print ("test name is : $test_name..................\n");
        #$self->SUPER::LogFileGen($test_name);    #priti
        foreach ( grep( m/^test/, @{ Class::Inspector->methods( $_ ) } ) ) {
        print ("4..................");
            foreach ( 'setUp', $_, 'tearDown' ) {
                print ("5..................");
                eval { $test_object->$_( ) };
                my $tc = $_;
                print ("at the end...$tc \n"); 
            }
        }
    }    
}

This part of code works fine. I try to call "$self->SUPER::LogFileGen($test_name); " commented out in the above code which is a function to redirect my standard outputs to a file. I get the below error :

Can't locate TestCalenders.pm in @INC (@INC contains: C:/usr/
site/lib, C:/usr/lib, .) at C:/usr/site/lib/Automat/Framework/TestSuiteRunner.pm
 line 49
        Automat::Framework::TestSuiteRunner::run('Automat::Framework::TestSuiteR
unner=HASH(0x226054)') called at run.pl line 36
# Looks like you failed 3 tests of 25.
# Looks like your test died just after 25.

Below is the sample LogFileGen subroutine:

sub LogFileGen {
my $test_object = $_[1];
print "content-type: $ext/html \n\n"; 
$FH = "filehandle";
chdir ("Log$now_string"); 
my $cur = getcwd;
open (OUTPUT, ">$test_object.txt");
my $Test = Test::Builder->new;
$Test->output("$test_object.txt");
return();
}

Can anybody help to solve the issue. And also if someone please explain me why the error is coming when i cann the LogFileGen subroutine.

Thanks,
Priti

[KevinADC]

Looks like you need to start by installing the TestCalenders.pm module.

[pagarwalla1234]

It is already. The error is coming only when I call the LogFileGel subrouting from this subroutine.

[numberwhun]

It is already. The error is coming only when I call the LogFileGel subrouting from this subroutine.

I have to agree with Kevin. Considering this error:

Can't locate TestCalenders.pm in @INC (@INC contains: C:/usr/
site/lib, C:/usr/lib, .) at C:/usr/site/lib/Automat/Framework/TestSuiteRunner.pm
line 49

which you so kindly posted, the module TestCalenders.pm is not found. If this is something that you installed, then you need to ensure that Perl can find it, otherwise, its useless. That is why you are getting this error.

Also, Please put code tags around any code you post in the forums. I have fixed it for you this time, but next time things get uglier. ;-)

Regards,

Moderator

[pagarwalla1234]

Thanks . I will surely keep that in mind.
If you see the code, there is :

Class::Autouse->load( $_ ); # @ line 10. whick loads all the modules.

I am not getting the error when I run the code as it is. But when I insert

$self->SUPER::LogFileGen($test_name);  #priti  - I see the error.

Hope my question is clear now.

Thanks.

[pagarwalla1234]

Also, let me know how can I make sure that perl is able to find the module.

Thanks,

[eWish]

TestCalenders does not appear to be a module from CPAN. Unless you installed it in the directory that perl looks for modules, you will need to use the lib pragma before perl will see the module.

use lib '/path/to/TestCalenders';

Edit:
Below is an example of how to use the code tags:
[CODE]The tags surrond the code that is posted which preserves the format and spacing.[/CODE]

Thank you for trying.

--Kevin

[pagarwalla1234]

I have included the lib pragma and the code run good now. Thanks a lot for the help.

You are right, TestCalender is not a CPAN module. Still I have a doubt (if you dont mind me asking it again).

Why Perl is not able to look for the module ONLY WHEN the "self->SUPER::LogFileGen($test_name);" line in included in the code BUT able to look for the module when I comment this out.

Sorry If I am being repeatative.

Thanks Again.

Priti