bogdan Analizeaza timpi reboot si documente

f16725e 3 months ago History

#!/usr/bin/perl

use strict;
use warnings;
use DBI;

print "=== autoSMART Database Test ===\n\n";

my $dsn = "DBI:Pg:dbname=autosmart;host=192.168.2.102;port=5432";
my $dbh = DBI->connect($dsn, "autosmart", "autoSMART2025!", {
    RaiseError => 1,
    AutoCommit => 1,
    PrintError => 0
}) or die "Failed to connect to database: $DBI::errstr\n";

print "✓ Database connection successful\n";

# Test tables exist
my @tables = qw(hdd_inventory hdd_migrations smart_readings predictions smart_thresholds alert_history system_config);

for my $table (@tables) {
    my $sth = $dbh->prepare("SELECT COUNT(*) FROM $table");
    $sth->execute();
    my ($count) = $sth->fetchrow_array();
    print "✓ Table $table: $count rows\n";
}

# Test views
my @views = qw(smart_readings_reconstructed latest_smart_readings drive_health_summary);

for my $view (@views) {
    eval {
        my $sth = $dbh->prepare("SELECT COUNT(*) FROM $view");
        $sth->execute();
        my ($count) = $sth->fetchrow_array();
        print "✓ View $view: $count rows\n";
    };
    if ($@) {
        print "✗ View $view: ERROR - $@\n";
    }
}

# Test function
eval {
    my $sth = $dbh->prepare("SELECT should_store_smart_reading(1, '{}', 'test', NOW())");
    $sth->execute();
    print "✓ Function should_store_smart_reading: Available\n";
};
if ($@) {
    print "✗ Function should_store_smart_reading: ERROR - $@\n";
}

$dbh->disconnect();

print "\n=== Test Complete ===\n";