Use GetSupportedWaveTypes data generator for IsXXXWave tests

Co-authored-by: t-b <[email protected]>

Author: Copilot

Packages/tests/Basic/UTF_Utils_Checks.ipf

@@ -726,110 +726,195 @@ End
 /// IsTextWave
 /// @{
 
-Function ITW_Works()
-
-	Make/FREE/T wvText
-	CHECK(IsTextWave(wvText))
-
-	Make/FREE/D wvDouble
-	CHECK(!IsTextWave(wvDouble))
-
-	Make/FREE/I wvInt
-	CHECK(!IsTextWave(wvInt))
-
-	Make/FREE/R wvSingle
-	CHECK(!IsTextWave(wvSingle))
+// UTF_TD_GENERATOR s0:DataGenerators#GetSupportedWaveTypes
+Function ITW_Works([STRUCT IUTF_mData &m])
+
+	string typeStr
+	variable type
+
+	typeStr = m.s0
+
+	strswitch(typeStr)
+		case "TEXT_WAVE":
+			Make/FREE/T wv
+			CHECK(IsTextWave(wv))
+			break
+		case "WAVE_WAVE":
+			Make/FREE/WAVE wv
+			CHECK(!IsTextWave(wv))
+			break
+		default:
+			type = WaveTypeStringToNumber(typeStr)
+			Make/FREE/Y=(type) wv
+			CHECK(!IsTextWave(wv))
+			break
+	endswitch
 End
 
 /// @}
 
 /// IsNumericWave
 /// @{
 
-Function INW_Works()
-
-	Make/FREE/D wvDouble
-	CHECK(IsNumericWave(wvDouble))
+// UTF_TD_GENERATOR s0:DataGenerators#GetSupportedWaveTypes
+Function INW_Works([STRUCT IUTF_mData &m])
 
-	Make/FREE/I wvInt
-	CHECK(IsNumericWave(wvInt))
+	string typeStr
+	variable type
 
-	Make/FREE/R wvSingle
-	CHECK(IsNumericWave(wvSingle))
+	typeStr = m.s0
 
-	Make/FREE/T wvText
-	CHECK(!IsNumericWave(wvText))
+	strswitch(typeStr)
+		case "TEXT_WAVE":
+			Make/FREE/T wv
+			CHECK(!IsNumericWave(wv))
+			break
+		case "WAVE_WAVE":
+			Make/FREE/WAVE wv
+			CHECK(!IsNumericWave(wv))
+			break
+		default:
+			type = WaveTypeStringToNumber(typeStr)
+			Make/FREE/Y=(type) wv
+			CHECK(IsNumericWave(wv))
+			break
+	endswitch
 End
 
 /// @}
 
 /// IsWaveRefWave
 /// @{
 
-Function IWRW_Works()
+// UTF_TD_GENERATOR s0:DataGenerators#GetSupportedWaveTypes
+Function IWRW_Works([STRUCT IUTF_mData &m])
 
-	Make/FREE/WAVE wvRef
-	CHECK(IsWaveRefWave(wvRef))
+	string typeStr
+	variable type
 
-	Make/FREE/D wvDouble
-	CHECK(!IsWaveRefWave(wvDouble))
+	typeStr = m.s0
 
-	Make/FREE/T wvText
-	CHECK(!IsWaveRefWave(wvText))
+	strswitch(typeStr)
+		case "TEXT_WAVE":
+			Make/FREE/T wv
+			CHECK(!IsWaveRefWave(wv))
+			break
+		case "WAVE_WAVE":
+			Make/FREE/WAVE wv
+			CHECK(IsWaveRefWave(wv))
+			break
+		default:
+			type = WaveTypeStringToNumber(typeStr)
+			Make/FREE/Y=(type) wv
+			CHECK(!IsWaveRefWave(wv))
+			break
+	endswitch
 End
 
 /// @}
 
 /// IsFloatingPointWave
 /// @{
 
-Function IFPW_Works()
-
-	Make/FREE/D wvDouble
-	CHECK(IsFloatingPointWave(wvDouble))
-
-	Make/FREE/R wvSingle
-	CHECK(IsFloatingPointWave(wvSingle))
-
-	Make/FREE/I wvInt
-	CHECK(!IsFloatingPointWave(wvInt))
-
-	Make/FREE/T wvText
-	CHECK(!IsFloatingPointWave(wvText))
+// UTF_TD_GENERATOR s0:DataGenerators#GetSupportedWaveTypes
+Function IFPW_Works([STRUCT IUTF_mData &m])
+
+	string typeStr
+	variable type
+
+	typeStr = m.s0
+
+	strswitch(typeStr)
+		case "TEXT_WAVE":
+			Make/FREE/T wv
+			CHECK(!IsFloatingPointWave(wv))
+			break
+		case "WAVE_WAVE":
+			Make/FREE/WAVE wv
+			CHECK(!IsFloatingPointWave(wv))
+			break
+		case "NT_FP64":
+		case "NT_FP32":
+			type = WaveTypeStringToNumber(typeStr)
+			Make/FREE/Y=(type) wv
+			CHECK(IsFloatingPointWave(wv))
+			break
+		default:
+			type = WaveTypeStringToNumber(typeStr)
+			Make/FREE/Y=(type) wv
+			CHECK(!IsFloatingPointWave(wv))
+			break
+	endswitch
 End
 
 /// @}
 
 /// IsDoubleFloatingPointWave
 /// @{
 
-Function IDFPW_Works()
-
-	Make/FREE/D wvDouble
-	CHECK(IsDoubleFloatingPointWave(wvDouble))
-
-	Make/FREE/R wvSingle
-	CHECK(!IsDoubleFloatingPointWave(wvSingle))
-
-	Make/FREE/I wvInt
-	CHECK(!IsDoubleFloatingPointWave(wvInt))
+// UTF_TD_GENERATOR s0:DataGenerators#GetSupportedWaveTypes
+Function IDFPW_Works([STRUCT IUTF_mData &m])
+
+	string typeStr
+	variable type
+
+	typeStr = m.s0
+
+	strswitch(typeStr)
+		case "TEXT_WAVE":
+			Make/FREE/T wv
+			CHECK(!IsDoubleFloatingPointWave(wv))
+			break
+		case "WAVE_WAVE":
+			Make/FREE/WAVE wv
+			CHECK(!IsDoubleFloatingPointWave(wv))
+			break
+		case "NT_FP64":
+			type = WaveTypeStringToNumber(typeStr)
+			Make/FREE/Y=(type) wv
+			CHECK(IsDoubleFloatingPointWave(wv))
+			break
+		default:
+			type = WaveTypeStringToNumber(typeStr)
+			Make/FREE/Y=(type) wv
+			CHECK(!IsDoubleFloatingPointWave(wv))
+			break
+	endswitch
 End
 
 /// @}
 
 /// IsSingleFloatingPointWave
 /// @{
 
-Function ISFPW_Works()
-
-	Make/FREE/R wvSingle
-	CHECK(IsSingleFloatingPointWave(wvSingle))
-
-	Make/FREE/D wvDouble
-	CHECK(!IsSingleFloatingPointWave(wvDouble))
-
-	Make/FREE/I wvInt
-	CHECK(!IsSingleFloatingPointWave(wvInt))
+// UTF_TD_GENERATOR s0:DataGenerators#GetSupportedWaveTypes
+Function ISFPW_Works([STRUCT IUTF_mData &m])
+
+	string typeStr
+	variable type
+
+	typeStr = m.s0
+
+	strswitch(typeStr)
+		case "TEXT_WAVE":
+			Make/FREE/T wv
+			CHECK(!IsSingleFloatingPointWave(wv))
+			break
+		case "WAVE_WAVE":
+			Make/FREE/WAVE wv
+			CHECK(!IsSingleFloatingPointWave(wv))
+			break
+		case "NT_FP32":
+			type = WaveTypeStringToNumber(typeStr)
+			Make/FREE/Y=(type) wv
+			CHECK(IsSingleFloatingPointWave(wv))
+			break
+		default:
+			type = WaveTypeStringToNumber(typeStr)
+			Make/FREE/Y=(type) wv
+			CHECK(!IsSingleFloatingPointWave(wv))
+			break
+	endswitch
 End
 
 /// @}
@@ -852,16 +937,35 @@ End
 /// IsComplexWave
 /// @{
 
-Function ICW_Works()
+// UTF_TD_GENERATOR s0:DataGenerators#GetSupportedWaveTypes
+Function ICW_Works([STRUCT IUTF_mData &m])
 
-	Make/FREE/C wvComplex
-	CHECK(IsComplexWave(wvComplex))
+	string typeStr
+	variable type
 
-	Make/FREE/D wvDouble
-	CHECK(!IsComplexWave(wvDouble))
+	typeStr = m.s0
 
-	Make/FREE/I wvInt
-	CHECK(!IsComplexWave(wvInt))
+	strswitch(typeStr)
+		case "TEXT_WAVE":
+			Make/FREE/T wv
+			CHECK(!IsComplexWave(wv))
+			break
+		case "WAVE_WAVE":
+			Make/FREE/WAVE wv
+			CHECK(!IsComplexWave(wv))
+			break
+		default:
+			type = WaveTypeStringToNumber(typeStr)
+			Make/FREE/Y=(type) wv
+			CHECK(!IsComplexWave(wv))
+			break
+	endswitch
+End
+
+Function ICW_WorksWithComplexWave()
+
+	Make/FREE/C wvComplex
+	CHECK(IsComplexWave(wvComplex))
 End
 
 /// @}