summaryrefslogtreecommitdiff
path: root/Windows/spice/examples/tclspice/tcl/test_vectoblt.sh
diff options
context:
space:
mode:
authorRahul Paknikar2021-01-08 12:47:23 +0530
committerGitHub2021-01-08 12:47:23 +0530
commite6f48f5b1bf22a1d048b44ed4416b4315a461306 (patch)
treefd357549a236cdc652f0b6d2919beee0cee7faa5 /Windows/spice/examples/tclspice/tcl/test_vectoblt.sh
parentac223c4a69c701ad0a247401acdc48b8b6b6dba6 (diff)
parent6b512cbf954273b0f21d3800d10a7ad42a759425 (diff)
downloadeSim-i2.1.tar.gz
eSim-i2.1.tar.bz2
eSim-i2.1.zip
Merge pull request #161 from rahulp13/installersi2.1
fixed key issue for ubuntu 20+; updated installers for windows os
Diffstat (limited to 'Windows/spice/examples/tclspice/tcl/test_vectoblt.sh')
-rw-r--r--Windows/spice/examples/tclspice/tcl/test_vectoblt.sh59
1 files changed, 0 insertions, 59 deletions
diff --git a/Windows/spice/examples/tclspice/tcl/test_vectoblt.sh b/Windows/spice/examples/tclspice/tcl/test_vectoblt.sh
deleted file mode 100644
index 28f04b96..00000000
--- a/Windows/spice/examples/tclspice/tcl/test_vectoblt.sh
+++ /dev/null
@@ -1,59 +0,0 @@
-#!/bin/sh
-# -*- mode: tcl -*- \
- exec wish -f "$0" ${1+"$@"}
-
-package require BLT
-load ../../../src/.libs/libspice.so
-
-spice::source "diffpair.cir"
-spice::op
-spice::let Vd = V(5) - V(4)
-blt::vector create imag
-blt::vector create real
-
-set ok 0
-###################
-puts " Vd is a real vector of length 1"
-###################
-#too many arguments
-if {[catch {spice::vectoblt raul ibrahim ector karim} erreur] != 0} {puts "ERROR EXPECTED: TEST 1 OK:\n\t$erreur"; set ok [expr {$ok + 1}]} else {puts "TEST 1 ERROR\n\t Test 1 should return TCL_ERROR, but it does not"}
-#no acceptable argument
-if {[catch {spice::vectoblt raul ibrahim ector} erreur] != 0} {puts "ERROR EXPECTED: TEST 2 OK:\n\t$erreur"; set ok [expr {$ok + 1}]} else {puts "TEST 2 ERROR\n\t Test 1 should return TCL_ERROR, but it does not"}
-#no acceptable blt vector
-if {[catch {spice::vectoblt Vd ibrahim} erreur] != 0} {puts "ERROR EXPECTED: TEST 3 OK:\n\t$erreur"; set ok [expr {$ok + 1}]} else {puts "TEST 3 ERROR\n\t Test 1 should return TCL_ERROR, but it does not"}
-#real part affectation
-if {[catch {spice::vectoblt Vd real} erreur] == 0} {puts "NO ERROR IN AFFECTATION. TEST 4 OK:\n\t (Blank line)"; set ok [expr {$ok + 1}]} else {puts "TEST 4 ERROR\n\t Test 1 should return TCL_ERROR, but it does not"}
-#no acceptable blt vector (2 vectors)
-if {[catch {spice::vectoblt Vd ibrahim ector} erreur] != 0} {puts "ERROR EXPECTED: TEST 5 OK:\n\t$erreur"; set ok [expr {$ok + 1}]} else {puts "TEST 5 ERROR\n\t Test 1 should return TCL_ERROR, but it does not"}
-#no acceptable imaginary vector
-if {[catch {spice::vectoblt Vd real ector} erreur] != 0} {puts "ERROR EXPECTED: TEST 6 OK:\n\t$erreur"; set ok [expr {$ok + 1}]} else {puts "TEST 6 ERROR\n\t Test 1 should return TCL_ERROR, but it does not"}
-#real and imaginary part affectation
-if {[catch {spice::vectoblt Vd real imag} erreur] == 0} {puts "NO ERROR IN AFFECTATION. TEST 7 OK:\n\t (Blank line)"; set ok [expr {$ok + 1}]} else {puts "TEST 7 ERROR\n\t Test 1 should return TCL_ERROR, but it does not"}
-#all good vectors, but another argument invited himself
-if {[catch {spice::vectoblt Vd real imag karim} erreur] != 0} {puts "ERROR EXPECTED: TEST 8 OK:\n\t$erreur"; set ok [expr {$ok + 1}]} else {puts "TEST 8 ERROR\n\t Test 1 should return TCL_ERROR, but it does not"}
-
-###################
-puts " Vd is a complex vector of length 10"
-###################
-spice::op
-spice::ac dec 10 100 1000
-spice::let Vd = V(5) - V(4)
-#too many arguments
-if {[catch {spice::vectoblt raul ibrahim ector karim} erreur] != 0} {puts "ERROR EXPECTED: TEST 1 OK:\n\t$erreur"; set ok [expr {$ok + 1}]} else {puts "TEST 1 ERROR\n\t Test 1 should return TCL_ERROR, but it does not"}
-#no acceptable argument
-if {[catch {spice::vectoblt raul ibrahim ector} erreur] != 0} {puts "ERROR EXPECTED: TEST 2 OK:\n\t$erreur"; set ok [expr {$ok + 1}]} else {puts "TEST 2 ERROR\n\t Test 1 should return TCL_ERROR, but it does not"}
-#no acceptable blt vector
-if {[catch {spice::vectoblt Vd ibrahim} erreur] != 0} {puts "ERROR EXPECTED: TEST 3 OK:\n\t$erreur"; set ok [expr {$ok + 1}]} else {puts "TEST 3 ERROR\n\t Test 1 should return TCL_ERROR, but it does not"}
-#real part affectation
-if {[catch {spice::vectoblt Vd real} erreur] == 0} {puts "NO ERROR IN AFFECTATION. TEST 4 OK:\n\t (Blank line)"; set ok [expr {$ok + 1}]} else {puts "TEST 4 ERROR\n\t Test 1 should return TCL_ERROR, but it does not"}
-#no acceptable blt vector (2 vectors)
-if {[catch {spice::vectoblt Vd ibrahim ector} erreur] != 0} {puts "ERROR EXPECTED: TEST 5 OK:\n\t$erreur"; set ok [expr {$ok + 1}]} else {puts "TEST 5 ERROR\n\t Test 1 should return TCL_ERROR, but it does not"}
-#no acceptable imaginary vector
-if {[catch {spice::vectoblt Vd real ector} erreur] != 0} {puts "ERROR EXPECTED: TEST 6 OK:\n\t$erreur"; set ok [expr {$ok + 1}]} else {puts "TEST 6 ERROR\n\t Test 1 should return TCL_ERROR, but it does not"}
-#real and imaginary part affectation
-if {[catch {spice::vectoblt Vd real imag} erreur] == 0} {puts "NO ERROR IN AFFECTATION. TEST 7 OK:\n\t (Blank line)"; set ok [expr {$ok + 1}]} else {puts "TEST 7 ERROR\n\t Test 1 should return TCL_ERROR, but it does not"}
-#all good vectors, but another argument invited himself
-if {[catch {spice::vectoblt Vd real imag karim} erreur] != 0} {puts "ERROR EXPECTED: TEST 8 OK:\n\t$erreur"; set ok [expr {$ok + 1}]} else {puts "TEST 8 ERROR\n\t Test 1 should return TCL_ERROR, but it does not"}
-
-puts "\n\n"
-if {$ok == 16} {puts "spice::vectoblt OK ($ok/16 tests ok)"} else {puts "spice::vectoblt KO:\n\t$ok/16 tests ok"}