Project

General

Profile

Download (593 Bytes)

action #120744 ยป cache-service-sqlite-test.t

mkittler, 2022-11-25 15:58

 
# Copyright 2022 SUSE LLC
# SPDX-License-Identifier: GPL-2.0-or-later

use Test::Most;

use FindBin;
use lib "$FindBin::Bin/lib", "$FindBin::Bin/../external/os-autoinst-common/lib";

use Test::Warnings ':report_warnings';
use Test::Output 'combined_like';

use Test::Mojo;
use OpenQA::CacheService;

note 'starting service';
$ENV{OPENQA_CACHE_DIR} = '/tmp/test';
my $t = Test::Mojo->new('OpenQA::CacheService');
my $sqlite = $t->app->cache->sqlite;
my $db = $sqlite->db;

note 'starting exclusive txn';
my $txn = $db->begin('exclusive');
sleep 1000;
$txn->commit;
ok 1, 'done';

done_testing;
    (1-1/1)