spips: Removed polled, interrupt tests from periph tests.

This patch modifies the test_app tcl file so that polled,
interrupt tests are removed from the peripheral tests.
Since we dont know whether peripherals are connected to
SPIPS or not.

Signed-off-by: P L Sai Krishna <lakshmis@xilinx.com>
Acked-by: Anirudha Sarangi <anirudh@xilinx.com>
This commit is contained in:
P L Sai Krishna 2015-08-26 18:01:01 +05:30 committed by Nava kishore Manne
parent e9557b1c36
commit 5d923bad10
2 changed files with 2 additions and 74 deletions

View file

@ -37,7 +37,4 @@
#include "xstatus.h"
int SpiPsSelfTestExample(u16 DeviceId);
int SpiPsFlashPolledExample(XSpiPs *SpiInstancePtr, u16 SpiDeviceId);
int SpiPsFlashIntrExample(XScuGic *IntcInstancePtr, XSpiPs *SpiInstancePtr,
u16 SpiDeviceId, u16 SpiIntrId);
#endif

View file

@ -63,7 +63,7 @@ proc gen_src_files {swproj mhsinst} {
}
if {$swproj == 1} {
set inc_file_lines {examples/xspips_selftest_example.c examples/xspips_flash_intr_example.c examples/xspips_flash_polled_example.c data/spips_header.h}
set inc_file_lines {examples/xspips_selftest_example.c data/spips_header.h}
return $inc_file_lines
}
@ -79,10 +79,7 @@ proc gen_init_code {swproj mhsinst} {
return ""
}
if {$swproj == 1} {
set ipname [common::get_property NAME $mhsinst]
set decl " static XSpiPs ${ipname};"
set inc_file_lines $decl
return $inc_file_lines
return ""
}
}
@ -102,9 +99,6 @@ proc gen_testfunc_call {swproj mhsinst} {
set hasStdout 1
}
set isintr [::hsm::utils::is_ip_interrupting_current_proc $mhsinst]
set intcvar intc
set testfunc_call ""
if {${hasStdout} == 0} {
@ -117,28 +111,6 @@ proc gen_testfunc_call {swproj mhsinst} {
Status = SpiPsSelfTestExample(${deviceid});
}"
append testfunc_call "
{
int Status;
Status = SpiPsFlashPolledExample(&${ipname}, ${deviceid});
}"
if {$isintr == 1} {
set intr_id "XPAR_${ipname}_INTR"
set intr_id [string toupper $intr_id]
append testfunc_call "
{
int Status;
Status = SpiPsFlashIntrExample(&${intcvar}, &${ipname}, \\
${deviceid}, \\
${intr_id});
}"
}
} else {
@ -160,47 +132,6 @@ proc gen_testfunc_call {swproj mhsinst} {
}
}"
append testfunc_call "
{
int Status;
print(\"\\r\\n Running SPIPsPolledExample() for ${ipname}...\\r\\n\");
Status = SpiPsFlashPolledExample(&${ipname}, ${deviceid});
if (Status == 0) {
print(\"SPIPsPolledExample PASSED\\r\\n\");
}
else {
print(\"SPIPsPolledExample FAILED\\r\\n\");
}
}"
if {$isintr ==1 } {
set intr_id "XPAR_${ipname}_INTR"
set intr_id [string toupper $intr_id]
append testfunc_call "
{
int Status;
print(\"\\r\\n Running Interrupt Test for ${ipname}...\\r\\n\");
Status = SpiPsFlashIntrExample(&${intcvar}, &${ipname}, \\
${deviceid}, \\
${intr_id});
if (Status == 0) {
print(\"SPIPsIntrExample PASSED\\r\\n\");
}
else {
print(\"SPIPsIntrExample FAILED\\r\\n\");
}
}"
}
}
return $testfunc_call