153 lines
5 KiB
Perl
153 lines
5 KiB
Perl
#!/usr/bin/env perl
|
|
# 100-basic.t: Test basic elixir functions against the files in tree/ .
|
|
#
|
|
# Copyright (c) 2020 D3 Engineering, LLC.
|
|
# By Christopher White, <cwhite@d3engineering.com>.
|
|
#
|
|
# Elixir is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU Affero General Public License as published by
|
|
# the Free Software Foundation, either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# Elixir is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU Affero General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU Affero General Public License
|
|
# along with Elixir. If not, see <http://www.gnu.org/licenses/>.
|
|
#
|
|
# SPDX-License-Identifier: AGPL-3.0-or-later
|
|
#
|
|
# This file uses core Perl modules only.
|
|
|
|
use autodie; # note: still need to check system() calls manually
|
|
|
|
use FindBin '$Bin';
|
|
use lib $Bin;
|
|
|
|
use File::Spec;
|
|
|
|
use Test::More;
|
|
|
|
use TestEnvironment;
|
|
use TestHelpers;
|
|
|
|
# ===========================================================================
|
|
# Main
|
|
|
|
# Set up
|
|
my $tree_src_dir = sibling_abs_path('tree');
|
|
|
|
my $tenv = TestEnvironment->new;
|
|
|
|
# Check programs
|
|
my $script_sh = $tenv->script_sh;
|
|
my $update_py = $tenv->update_py;
|
|
my $query_py = $tenv->query_py;
|
|
|
|
ok_or_die( (-f $script_sh && -r _ && -x _), 'script.sh executable',
|
|
"Could not find executable script.sh at $script_sh");
|
|
ok_or_die( (-f $update_py && -r _ && -x _), 'update.py executable',
|
|
"Could not find executable update.py at $update_py");
|
|
ok_or_die( (-f $query_py && -r _ && -x _), 'query.py executable',
|
|
"Could not find executable query.py at $query_py");
|
|
|
|
$tenv->build_repo($tree_src_dir);
|
|
$tenv->update_env; # Set LXR_REPO_DIR
|
|
|
|
diag $tenv->report;
|
|
|
|
# Check for tags in `script.sh list-tags`, as a sanity check before
|
|
# building the test DB
|
|
my @tags = `$script_sh list-tags`;
|
|
die("Could not list tags: $! ($?)") if $?;
|
|
ok_or_die( @tags == 1, 'One tag present', "Not one tag (@{[scalar @tags]})");
|
|
ok_or_die( $tags[0] =~ /^v5.4$/, 'Found the correct tag', 'Not the tag we expected');
|
|
|
|
$tenv->build_db;
|
|
$tenv->update_env; # Set LXR_DATA_DIR
|
|
my $db_dir = $tenv->lxr_data_dir;
|
|
|
|
ok_or_die( -d $db_dir, 'database dir exists',
|
|
"Database dir $db_dir not present");
|
|
|
|
# Make sure the database has the files we expect
|
|
ok( (-r File::Spec->catfile($db_dir, $_)), "$_ exists" )
|
|
foreach qw(blobs.db definitions.db filenames.db hashes.db references.db
|
|
variables.db versions.db);
|
|
|
|
# Spot-check some identifiers
|
|
|
|
run_produces_ok('ident query (nonexistent)',
|
|
[$query_py, qw(v5.4 ident SOME_NONEXISTENT_IDENTIFIER_XYZZY_PLUGH C)],
|
|
[qr{^Symbol Definitions:}, qr{^Symbol References:}, qr{^\s*$}],
|
|
MUST_SUCCEED);
|
|
|
|
run_produces_ok('ident query (existent)',
|
|
[$query_py, qw(v5.4 ident i2c_acpi_notify C)],
|
|
[qr{^Symbol Definitions:}, qr{^Symbol References:},
|
|
{ def => qr{drivers/i2c/i2c-core-acpi\.c.+\b402\b.+\bfunction\b} },
|
|
{ ref => qr{drivers/i2c/i2c-core-acpi\.c.+\b439} },
|
|
],
|
|
MUST_SUCCEED);
|
|
|
|
run_produces_ok('ident query (existent, #131)',
|
|
[$query_py, qw(v5.4 ident class C)],
|
|
[qr{^Symbol Definitions:}, qr{^Symbol References:},
|
|
{ def => qr{issue131\.h.+\b9\b.+\bstruct\b} },
|
|
{ ref => qr{issue131\.h.+\b13} },
|
|
],
|
|
MUST_SUCCEED);
|
|
|
|
run_produces_ok('ident query (existent, #150)',
|
|
[$query_py, qw(v5.4 ident memset C)],
|
|
[qr{^Symbol Definitions:}, qr{^Symbol References:},
|
|
{ def => qr{issue150\.S.+\b7\b.+\bfunction\b} },
|
|
{ ref => qr{i2c-core-acpi\.c.+\b121\b} }
|
|
],
|
|
MUST_SUCCEED);
|
|
|
|
run_produces_ok('ident query (ENTRY that should not be detected, #150)',
|
|
[$query_py, qw(v5.4 ident), 'HYPERVISOR_##hypercall', 'C'],
|
|
[qr{^Symbol Definitions:}, qr{^Symbol References:},
|
|
{ def => { not => qr{hypercall\.S} } },
|
|
],
|
|
MUST_SUCCEED);
|
|
|
|
run_produces_ok('ident query (ENTRY that should not be detected, #150)',
|
|
[$query_py, qw(v5.4 ident), '0xfffffffe', 'C'],
|
|
[qr{^Symbol Definitions:}, qr{^Symbol References:},
|
|
{ def => { not => qr{bcm74xx_sprom\.c} } },
|
|
],
|
|
MUST_SUCCEED);
|
|
|
|
run_produces_ok('ident query (existent, #228)',
|
|
[$query_py, qw(v5.4 ident sys_init_module C)],
|
|
[qr{^Symbol Definitions:}, qr{^Symbol References:},
|
|
{ def => qr{syscall_define\.c.+\b1\b.+\bfunction\b} }
|
|
],
|
|
MUST_SUCCEED);
|
|
|
|
# Spot-check some files
|
|
|
|
run_produces_ok('file query (nonexistent)',
|
|
[$query_py, qw(v5.4 file /SOME_NONEXISTENT_FILENAME_XYZZY_PLUGH)],
|
|
[{not => qr{\S}}]);
|
|
|
|
run_produces_ok('file query (existent), .h',
|
|
[$query_py, qw(v5.4 file /drivers/i2c/i2c-dev.c)],
|
|
[qr{\S}],
|
|
MUST_SUCCEED);
|
|
|
|
run_produces_ok('file query (existent), .c',
|
|
[$query_py, qw(v5.4 file /drivers/i2c/i2c-dev.c)],
|
|
[qr{i2c-dev\.c}, qr{\bVogl\b}],
|
|
MUST_SUCCEED);
|
|
|
|
run_produces_ok('file query (existent), .h',
|
|
[$query_py, qw(v5.4 file /drivers/i2c/i2c-core.h)],
|
|
[qr{i2c-core\.h}, qr{\bWe\b}],
|
|
MUST_SUCCEED);
|
|
|
|
done_testing;
|