mirror of
https://github.com/Telecominfraproject/OpenCellular.git
synced 2025-12-24 16:57:21 +00:00
25 lines
770 B
Perl
Executable File
25 lines
770 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
# Copyright (c) 2017-present, Facebook, Inc.
|
|
# All rights reserved.
|
|
#
|
|
# This source code is licensed under the BSD-style license found in the
|
|
# LICENSE file in the root directory of this source tree. An additional grant
|
|
# of patent rights can be found in the PATENTS file in the same directory.
|
|
|
|
#
|
|
# File: tc_led
|
|
#
|
|
# This test case LED program uses the fbt(1) program to run
|
|
# the $Cled test sequence against the LED card. Since the LED
|
|
# card needs manual intervention, it is best run as a separate
|
|
# test. The tests that can be fully automated can be segregated
|
|
# so they may be run repetitively without operator intervention.
|
|
#
|
|
use strict;
|
|
|
|
$ENV{FBT_TEST_TABLE_INDEX} = 4;
|
|
my $Prog = '/usr/local/fbin/fbt';
|
|
my $Arg = '-l';
|
|
exec($Prog, $Arg);
|