URL https://opencores.org/ocsvn/present/present/trunk

Subversion Repositories present

[/] [present/] [trunk/] [PureTesting/] [bench/] [vhdl/] [PresentCommTB.vhd] - Diff between revs 8 and 13

Rev 8	Rev 13
Line 104...	Line 104...

`-- Stimulus process`	`-- Stimulus process`
`stim_proc: process`	`stim_proc: process`

`-- Variables`	`-- Variables`
`file txt :text is in "../src/test/data.txt";`	`file txt :text is in "./test/data.txt";`
`file key :text is in "../src/test/key.txt";`	`file key :text is in "./test/key.txt";`
`file txt2 :text is in "../src/test/data2.txt";`	`file txt2 :text is in "./test/data2.txt";`
`file key2 :text is in "../src/test/key2.txt";`	`file key2 :text is in "./test/key2.txt";`

`variable line_in : line;`	`variable line_in : line;`
`variable line_content : string(1 to 8);`	`variable line_content : string(1 to 8);`
`variable data : STD_LOGIC;`	`variable data : STD_LOGIC;`

Line 122...	Line 122...
`wait for 1000 ns;`	`wait for 1000 ns;`
`RESET <= '0';`	`RESET <= '0';`

`wait for CLK_period*10;`	`wait for CLK_period*10;`

	`-- All data are sent in direction from LSB to MSB`

`-- Reading first 'data' file each "segment" is one bit of serial data`	`-- Reading first 'data' file each "segment" is one bit of serial data`
`while not (endfile(txt)) loop`	`while not (endfile(txt)) loop`
`readline(txt, line_in); -- info line`	`readline(txt, line_in); -- info line`
`read(line_in, line_content);`	`read(line_in, line_content);`
`report line_content;`	`report line_content;`