in reply to Re: CPAN automated tests for IPC
in thread CPAN automated tests for IPC

The C code is interactive, so my mock test should "interact" with the program, giving commands to it and expecting output. Again, I'm not sure if using another Perl script would have any issue (only thing that comes to my mind is that I need print buffering).

Here is the C code anyway:

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#define COMP_SIZE 265
#define COMP_TYPES_SIZE 428

int main()
{
    FILE *input_file;
    char comp_file[13] = "list_comp.txt";
    char comp_types_file[19] = "list_comp_types.txt";
    char command[30];

    while(1)
    {

        printf("srvrmgr> ");
        fgets(command, sizeof(command), stdin);

        /*removes new line*/
        command[ strlen(command) - 1] = '\0';

        switch(strlen(command))
        {

            /*list comp*/
            case 9 : {

                char comp_line[COMP_SIZE];
                input_file = fopen(comp_file, "r");

                if (input_file == NULL)
                {

                    printf("Error reading %s\n", comp_file);
                    perror(comp_file);
                    exit(1);
        
                }

                while(fgets(comp_line, COMP_SIZE, input_file)) {

                    printf("%s", comp_line);

                }
    
                fclose(input_file);

                break;

            }

            /*list comp types*/
            case 15 : {
                
                char comp_types_line[COMP_TYPES_SIZE];
                input_file = fopen(comp_types_file, "r");

                if (input_file == NULL)
                {

                    printf("Error reading %s\n", comp_types_file);
                    perror(comp_types_file);
                    exit(1);
        
                }

                while(fgets(comp_types_line, COMP_TYPES_SIZE, input_fi
+le)) {

                    printf("%s", comp_types_line);

                }
    
                fclose(input_file);

                break;
                
            }

            /*exit*/
            case 4 : {

                printf("Disconnecting...\n");
                exit(0);

            }

            default : {

                printf("Invalid command\n");
                break;

            }

        } /*end of switch...case*/

    } /*end of while(1)*/

    exit(0);

}

[download]

I'm sure I could write something better in pure Perl, but I'm confident that it wouldn't compromisse the testing results.

Alceu Rodrigues de Freitas Junior
---------------------------------
"You have enemies? Good. That means you've stood up for something, sometime in your life." - Sir Winston Churchill

Replies are listed 'Best First'.
Re^3: CPAN automated tests for IPC
by BrowserUk (Patriarch) on Mar 17, 2012 at 16:40 UTC

    This is a pretty literal translation of your C file, that should perform exactly the same way (barring typos): 

    #! perl -slw
use strict;
use constant {
    COMP_FILE        => "list_comp.txt",
    COMP_TYPES_FILE => "list_comp_types.txt",
};

while( 1 ) {
    printf "svrmgr> ";
    chomp( my $command = <STDIN> );
    if( $command eq COMP_FILE ) {
        open my $in, '<', COMP_FILE 
            or printf("Error reading %s\n", COMP_FILE )
            and next;
        print while <$in>;
    }
    elsif( $command eq COMP_TYPES_FILE ) {
        open my $in, '<', COMP_TYPES_FILE 
            or printf("Error reading %s\n", COMP_TYPES_FILE )
            and next;
        print while <$in>;
    }
    else if( $command eq 'EXIT' ) {
        print "Disconnecting...\n";
        last;
    }
    else {
        print "Invalid command\n";
    }
}
exit 0;

    [download]

    Easier to maintain?

    (Also, just an aside. Are the blank lines in your C code an artifact of posting, or your preferred style?)

    With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    "Science is about questioning the status quo. Questioning authority".
    In the absence of evidence, opinion is indistinguishable from prejudice.

    The start of some sanity?
[reply]
[d/l]

      I believe it may work too, so I should consider using Perl instead of C just because it's easier to maintain. I'll put both of them to testing and if the results are the same I'll stick with the Perl version.

      I believe I might have put the blank lines by hand, not sure if it was the editor that I'm using (Anjuta). But it was not the posting.

      Alceu Rodrigues de Freitas Junior
      ---------------------------------
      "You have enemies? Good. That means you've stood up for something, sometime in your life." - Sir Winston Churchill
[reply]

In Section Seekers of Perl Wisdom