# $Id: test_all.tcl 469 2013-01-05 12:29:44Z mueller $
|
# $Id: test_all.tcl 469 2013-01-05 12:29:44Z mueller $
|
#
|
#
|
# Copyright 2011- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
# Copyright 2011- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
#
|
#
|
# This program is free software; you may redistribute and/or modify it under
|
# This program is free software; you may redistribute and/or modify it under
|
# the terms of the GNU General Public License as published by the Free
|
# the terms of the GNU General Public License as published by the Free
|
# Software Foundation, either version 2, or at your option any later version.
|
# Software Foundation, either version 2, or at your option any later version.
|
#
|
#
|
# This program is distributed in the hope that it will be useful, but
|
# This program is distributed in the hope that it will be useful, but
|
# WITHOUT ANY WARRANTY, without even the implied warranty of MERCHANTABILITY
|
# WITHOUT ANY WARRANTY, without even the implied warranty of MERCHANTABILITY
|
# or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
# or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
# for complete details.
|
# for complete details.
|
#
|
#
|
# Revision History:
|
# Revision History:
|
# Date Rev Version Comment
|
# Date Rev Version Comment
|
# 2013-01-04 469 1.0.2 move rbemon tests from test_all to test_all_emon
|
# 2013-01-04 469 1.0.2 move rbemon tests from test_all to test_all_emon
|
# 2011-04-17 376 1.0.1 add rbemon::test_rbtest_sim (if in sum mode)
|
# 2011-04-17 376 1.0.1 add rbemon::test_rbtest_sim (if in sum mode)
|
# 2011-04-02 375 1.0 Initial version
|
# 2011-04-02 375 1.0 Initial version
|
# 2011-03-26 373 0.1 First draft
|
# 2011-03-26 373 0.1 First draft
|
#
|
#
|
|
|
package provide tst_rlink 1.0
|
package provide tst_rlink 1.0
|
|
|
package require rbtest
|
package require rbtest
|
package require rbmoni
|
package require rbmoni
|
|
|
namespace eval tst_rlink {
|
namespace eval tst_rlink {
|
#
|
#
|
# Driver for all tst_rlink tests
|
# Driver for all tst_rlink tests
|
#
|
#
|
proc test_all {} {
|
proc test_all {} {
|
#
|
#
|
set errcnt 0
|
set errcnt 0
|
incr errcnt [rbtest::test_all 0x7 0xfffc]
|
incr errcnt [rbtest::test_all 0x7 0xfffc]
|
incr errcnt [rbmoni::test_regs]
|
incr errcnt [rbmoni::test_regs]
|
incr errcnt [rbmoni::test_rbtest]
|
incr errcnt [rbmoni::test_rbtest]
|
|
|
puts "tst_rlink::test_all errcnt = $errcnt --> [rutil::errcnt2txt $errcnt]"
|
puts "tst_rlink::test_all errcnt = $errcnt --> [rutil::errcnt2txt $errcnt]"
|
|
|
return $errcnt
|
return $errcnt
|
}
|
}
|
#
|
#
|
# Driver for emon based tst_rlink tests
|
# Driver for emon based tst_rlink tests
|
#
|
#
|
proc test_all_emon {} {
|
proc test_all_emon {} {
|
#
|
#
|
set errcnt 0
|
set errcnt 0
|
incr errcnt [rbemon::test_regs]
|
incr errcnt [rbemon::test_regs]
|
if {[rlink::issim]} {
|
if {[rlink::issim]} {
|
incr errcnt [rbemon::test_rbtest_sim]
|
incr errcnt [rbemon::test_rbtest_sim]
|
}
|
}
|
|
|
puts "tst_rlink::test_all_emon errcnt = $errcnt --> [rutil::errcnt2txt $errcnt]"
|
puts "tst_rlink::test_all_emon errcnt = $errcnt --> [rutil::errcnt2txt $errcnt]"
|
|
|
return $errcnt
|
return $errcnt
|
}
|
}
|
}
|
}
|
|
|
