How do you test code that uses DBI basics?

Testing code that interacts with databases using DBI (Database Interface) in Perl involves various strategies. You can use mock databases, test databases, or even handle exceptions to ensure your code behaves as expected. Below is an example demonstrating how to test DBI code effectively.


        #!/usr/bin/perl
        use strict;
        use warnings;
        use DBI;

        # Connect to the database
        my $dbh = DBI->connect("DBI:mysql:database=testdb", "user", "password", { RaiseError => 1 });

        # Create a simple table
        $dbh->do("CREATE TABLE IF NOT EXISTS users (id INT AUTO_INCREMENT PRIMARY KEY, name VARCHAR(255))");

        # Function to add a user
        sub add_user {
            my ($name) = @_;
            my $sth = $dbh->prepare("INSERT INTO users (name) VALUES (?)");
            $sth->execute($name);
        }

        # Testing add_user function
        eval {
            add_user('John Doe');
            print "User added successfully\n";
        };
        if ($@) {
            print "Error: $@\n";
        }

        # Clean up the database
        $dbh->do("DROP TABLE users");
        $dbh->disconnect();

How do you test code that uses DBI basics?

Popular Topics

Recent Languages

How do you test code that uses DBI basics?

Related Questions

Popular Topics

Recent Languages