Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | New tests |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
ad2669dd7d7221850ac72758c7147af8 |
| User & Date: | peter 2008-11-10 18:46:17.000 |
Context
|
2008-11-10
| ||
| 19:16 | Verision increase check-in: 8991295b2a user: peter tags: trunk | |
| 18:46 | New tests check-in: ad2669dd7d user: peter tags: trunk | |
| 18:26 | Improved patch parsing. check-in: 1ff232f13d user: peter tags: trunk | |
Changes
Added tests/patch.test.
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 |
# Tests for patch file parsingunctions -*- tcl -*-
#----------------------------------------------------------------------
# $Revision$
#----------------------------------------------------------------------
# Overload exec during these tests
set ::diff(gurka,patchFile) ""
stub update args {}
stub getFullPatch {top} {
return $::testpatch
}
stub displayOnePatch {top leftLines rightLines leftLine rightLine} {
}
stub emptyLine {top n {highlight 1}} {
incr ::_patchfiles
}
stub insertLine {top n line text {tag {equal}} {linetag {}}} {
}
stub addChange {top n tag line1 n1 line2 n2} {}
proc _PatchInit {} {
set ::_patchfiles 0
}
test patch-1.1 {
Xxx
} -body {
_PatchInit
set ::testpatch {
Index: vhdl/tb/tb_system.bhv
===================================================================
--- vhdl/tb/tb_system.bhv (revision 320)
+++ vhdl/tb/tb_system.bhv (working copy)
@@ -186,27 +184,25 @@
begin
--- Service17(
--- PEC => NonExisting_E,
--- TcPacketHeader => TcPacketHeader,
--- TcDFHeader => TcDFHeader); -- Caused compilation error due
--- -- to input not being signals.
--- -- Temporarily commented, FATF.
+ Service17(
+ PEC => NonExisting_E,
+ TcPacketHeader => TcPacketHeader,
+ TcDFHeader => TcDFHeader);
--- MakePackageHeader(
--- PackageHeader => TcPacketHeader,
--- PackageHeaderVec => PackageHeaderVec);
+ PackageHeaderVec := MakePackageHeader(
+ PackageHeader => TcPacketHeader);
--- MakeTcDFHeader(
--- TcDFHeader => TcDFHeader,
--- TcDFHeaderVec => TcDFHeaderVec);
+ TcDFHeaderVec := MakeTcDFHeader(
+ TcDFHeader => TcDFHeader);
- TcPackageVec := MakeTcPackage(
- PackageHeaderVec => PackageHeaderVec,
- TcDFHeaderVec => TcDFHeaderVec);
+ TcPackageVec := MakeTcPackage(
+ PackageHeaderVec => PackageHeaderVec,
+ TcDFHeaderVec => TcDFHeaderVec);
- --SendTcPacket(Data => TcPackageVec
- -- DataLen =>);
+-- SendTcPacket(Data => TcPackageVec,
+-- DataLen => 12,
+-- HurricaneNominalI => HurricaneNominalI,
+-- HurricaneRedundantI => HurricaneRedundantI);
end procedure TestSystemService17;
Index: vhdl/tb/tb_pus.bhv
===================================================================
--- vhdl/tb/tb_pus.bhv (revision 320)
+++ vhdl/tb/tb_pus.bhv (working copy)
@@ -474,6 +474,9 @@
TmValid(TmBufAnomaly_E) <= true;
TmOffset <= (others => (others => '0'));
end procedure TmSetup;
+
+ variable TcPacketHeader_L : PackageHeader_T;
+ variable TcDFHeader_L : TcDFH_T;
begin
TcuA <= (others => '0');
@@ -485,8 +488,10 @@
Service17(PEC => NonExisting_E,
ACK => NoPositiveACK_E,
- TcPacketHeader => TcPacketHeader,
- TcDFHeader => TcDFHeader);
+ TcPacketHeader => TcPacketHeader_L,
+ TcDFHeader => TcDFHeader_L);
+ TcPacketHeader <= TcPacketHeader_L;
+ TcDFHeader <= TcDFHeader_L;
wait for 400 ns;
TmSuperPacket <=
MakeTmRespons(TcPacketHeader => TcPacketHeader,
@@ -496,8 +501,10 @@
wait for 400 ns;
Service17(PEC => NonExisting_E,
ACK => NoPositiveACK_E,
- TcPacketHeader => TcPacketHeader,
- TcDFHeader => TcDFHeader);
+ TcPacketHeader => TcPacketHeader_L,
+ TcDFHeader => TcDFHeader_L);
+ TcPacketHeader <= TcPacketHeader_L;
+ TcDFHeader <= TcDFHeader_L;
wait for 400 ns;
TmSuperPacket <=
MakeTmRespons(TcPacketHeader => TcPacketHeader,
Index: vhdl/tb/tb_pus.pkg
===================================================================
--- vhdl/tb/tb_pus.pkg (revision 320)
+++ vhdl/tb/tb_pus.pkg (working copy)
@@ -500,8 +500,8 @@
:= To_Stdulogicvector(3, 16);
PEC : in TmTcPEC_T := Existing_E;
ACK : in TmACK_T := NoPositiveACK_E;
- signal TcPacketHeader : out PackageHeader_T;
- signal TcDFHeader : out TcDFH_T);
+ variable TcPacketHeader : out PackageHeader_T;
+ variable TcDFHeader : out TcDFH_T);
procedure TcAddrCalc(PresentAddr : in integer;
AccWidth : in DynamicSize_T;
}
displayPatch gurka
set ::_patchfiles
} -result {6}
|