emacs 使用积累2 unittest.el

关注

原创最新推荐文章于 2026-06-03 09:29:43 发布 609 阅读 AI 写同款· GEO 优化 ›

【扩展卡尔曼滤波器EKF】基于UWB雷达的SLAM能够在室内环境内映射自然点地标，并改善机器人定位（Matlab代码实现）内容概要：本文档提供了名为“Plecs全桥LLC谐振变换器仿真模型”的资源，主要用于电力电子领域中LLC谐振变换器的建模与仿真研究。该模型基于Plecs软件平台构建，聚焦于全桥LLC拓扑结构，涵盖其工作原理、关键参数设计及动态性能仿真，帮助用户深入理解LLC谐振变换器在软开关、高效率功率转换方面的特性与实现方法。文档内容包括系统建模、主电路参数计算、控制策略实现以及仿真结果分析等部分，适用于高频高效电源变换器的研发与教学实践。; 适合人群：具备电力电子与电力系统基础知识，从事电源变换器设计、仿真与优化工作的工程师及高校研究生。; 使用场景及目标：① 掌握LLC谐振变换器的工作机理与Plecs仿真建模流程；② 学习全桥LLC拓扑的参数设计与软开关实现方法；③ 为高频高效DC-DC变换器的科研、课程设计或工程项目提供仿真基础和技术参考。; 阅读建议：建议结合电力电子技术教材与Plecs官方文档同步学习，重点理解谐振腔参数（如Lr、Cr、Lm）对增益特性与软开关的影响，并通过调整仿真参数验证不同工况下的系统响应，以加深对LLC变换器设计规律的理解。立即下载

unittest.el

(require 'kreatel-c++-header-common "c++-header-common.el")

;;; ---------------------------------------------------------------------------

;;; Functions to create a TestMain.cpp

(defun kreatel-create-test-main ()

(interactive)

(progn

(setq directory (file-name-as-directory

(concat (file-name-directory (buffer-file-name))

"testcases")))

(setq filename (concat directory "TestMain.cpp"))

(if (not (file-directory-p directory))

(message (concat "The directory " directory " doesn't exist!"))

(if (file-exists-p filename)

(message "TestMain.cpp already exists!")

(progn

(switch-to-buffer (find-file-noselect filename))

(goto-char (point-min))

(kreatel-common-insert-header "TestMain.cpp"

"Main function for running unit tests")

(insert "#include \"testcases/T?Tests.h\"\n\n")

(insert "#include \"debug/TStderrTracker.h\"\n")

(insert "#include \"debug/TNullTracker.h\"\n")

(insert "#include \"test/console/TVerboseConsoleTestResult.h\"\n\n")

(insert "#define EXTRA_TEST_OUTPUT\n\n")

(kreatel-separator)

(insert "// Tracker\n\n")

(insert "TTracker* TTracker::GetProcessTracker()\n")

(insert "{\n")

(insert "#ifdef EXTRA_TEST_OUTPUT\n")

(insert " static TStderrTracker tracker(TrackAll);\n")

(insert "#else\n")

(insert " static TNullTracker tracker;\n")

(insert "#endif\n")

(insert " return &tracker;\n")

(insert "}\n\n")

(kreatel-separator)

(insert "// main\n\n")

(insert "int main(int /*argc*/, char** /*argv*/)\n")

(insert "{\n")

(save-excursion

(insert " TTestSuite suite(?);\n")

(insert " suite.AddTest(T?Tests::GetSuite());\n\n")

(insert " TVerboseConsoleTestResult result;\n")

(insert "#ifndef EXTRA_TEST_OUTPUT\n")

(insert " result.SetVerbose(false);\n")

(insert "#endif\n")

(insert " suite.Run(&result);\n\n")

(insert " result.PrintSummary();\n")

(insert " return result.WasSuccessful() ? 0 : 1;\n")

(insert "}\n"))

(c++-mode))))))

;;; ---------------------------------------------------------------------------

;;; Functions to create test classes for a specific class.

(defun kreatel-create-test-h-file (buffername filename classname testclassname)

(save-excursion

(set-buffer buffername)

(goto-char (point-min))

(kreatel-common-insert-header filename (concat "Tests for " classname))

(insert "#ifndef " (upcase testclassname) "_H\n")

(insert "#define " (upcase testclassname) "_H\n\n")

(insert "#include \"test/TTestCase.h\"\n")

(insert "#include \"test/TMethodRecorder.h\"\n\n")

(insert "class " testclassname " : public TTestCase\n")

(insert "{\n")

(insert "private:\n")

(insert " TMethodRecorder Recorder;\n\n")

(insert " void Test1();")

(save-excursion

(insert "\n\npublic:\n")

(insert " " testclassname "(const std::string& name);\n")

(insert " static TTest* GetSuite();\n")

(insert "};\n\n")

(insert "#endif\n"))

(c++-mode)))

(defun kreatel-create-test-cpp-file (buffername cpp-file h-file

classname testclassname)

(save-excursion

(set-buffer buffername)

(goto-char (point-min))

(kreatel-common-insert-header cpp-file (concat "Tests for " classname))

(insert "#include \"testcases/" h-file "\"\n\n")

(insert "#include \"" classname ".h\"\n\n")

(insert "#include \"test/TTestSuite.h\"\n")

(insert "#include \"test/TTestCaller.h\"\n\n\n")

(kreatel-separator)

(insert "// Private functions\n\n")

(insert "void " testclassname "::Test1()\n")

(insert "{\n")

(insert " // TODO")

(save-excursion

(insert "\n}\n\n\n")

(kreatel-separator)

(insert "// Public functions\n\n")

(insert testclassname "::" testclassname "(const std::string& name)\n")

(insert " : TTestCase(name)\n")

(insert "{\n")

(insert " // Empty\n")

(insert "}\n\n")

(insert "TTest* " testclassname "::GetSuite()\n")

(insert "{\n")

(insert " TTestSuite* testSuite = new TTestSuite(\""

testclassname "\");\n\n")

(insert " testSuite->AddTest(ALLOC_CALLER("

testclassname ", Test1));\n")

(insert " return testSuite;\n")

(insert "}\n"))

(c++-mode)))

(defun kreatel-create-test-class ()

(interactive)

(let (classname pos testclassname directory

h-file cpp-file h-buffer cpp-buffer)

(setq classname (file-name-nondirectory (buffer-file-name)))

(if (not (string-match "T.*\\.\\(h\\|cpp\\)" classname))

(message "The class file must be named T<name>.h/cpp.")

(progn

(setq pos (string-match "\\." classname))

(setq classname (substring classname 0 pos))

(setq testclassname (concat (substring classname 0 pos) "Tests"))

(setq directory (file-name-as-directory

(concat (file-name-directory (buffer-file-name))

"testcases")))

(if (not (file-directory-p directory))

(message (concat "The directory " directory " doesn't exist!"))

(progn

(setq h-file (concat testclassname ".h"))

(setq cpp-file (concat testclassname ".cpp"))

(if (or (file-exists-p (concat directory h-file))

(file-exists-p (concat cpp-file)))

(message "The test .h or .cpp-file already exists!")

(progn

(setq h-buffer (find-file-noselect (concat directory h-file)))

(setq cpp-buffer (find-file-noselect

(concat directory cpp-file)))

(kreatel-create-test-h-file h-buffer h-file

classname testclassname)

(kreatel-create-test-cpp-file cpp-buffer cpp-file h-file

classname testclassname)

(switch-to-buffer h-buffer)))))))))

;;; ---------------------------------------------------------------------------

;;; Functions to create mock classes for a specific interface.

(defun kreatel-print-function-definitions (funlist)

(if (not (null funlist))

(progn

(insert " virtual " (cadr (car funlist)) ";\n")

(kreatel-print-function-definitions (cdr funlist)))))

(defun kreatel-print-function-declarations (ifcname classname funlist)

(let (returntype funstring)

(if (not (null funlist))

(progn

(setq funstring (cadr (car funlist)))

(string-match "\\(\\s \\|\\\n\\)+" funstring)

(setq returntype (substring funstring 0 (match-end 0)))

(setq funstring (substring funstring (match-end 0)))

(insert "inline " returntype classname "::\n" funstring "\n")

(insert "{\n")

(insert " Recorder.Push(\"" ifcname "::" (car (car funlist))

"()\");\n")

(insert "}\n\n")

(kreatel-print-function-declarations ifcname

classname (cdr funlist))))))

(defun kreatel-create-mock-h-file (buffername filename ifcname mockclassname

funlist)

(save-excursion

(set-buffer buffername)

(goto-char (point-min))

(kreatel-common-insert-header filename

(concat "Mock class for interface " ifcname))

(insert "#ifndef " (upcase mockclassname) "_H\n")

(insert "#define " (upcase mockclassname) "_H\n\n")

(insert "#include \"" ifcname ".h\"\n")

(insert "#include \"test/TMethodRecorder.h\"\n\n")

(insert "class " mockclassname " : public " ifcname "\n")

(insert "{\n")

(insert "private:\n")

(insert " TMethodRecorder& Recorder;\n\n")

(insert "public:\n")

(insert " " mockclassname

"(TMethodRecorder& recorder) throw ();\n\n")

(kreatel-print-function-definitions funlist)

(save-excursion

(insert "};\n\n")

(kreatel-separator)

(insert "// Inlined functions\n\n")

(insert "inline " mockclassname "::\n" mockclassname

"(TMethodRecorder& recorder) throw ()\n")

(insert " : Recorder(recorder)\n")

(insert "{\n")

(insert " // Empty\n")

(insert "}\n\n")

(kreatel-print-function-declarations ifcname mockclassname funlist)

(insert "#endif\n"))

(c++-mode))

(switch-to-buffer h-buffer))

(defun kreatel-parse-ifc-functions (ifcname)

(let ((functions nil)

endpos

nextstartpos

tmppos

funstring)

(save-excursion

(goto-char (point-min))

(if (not (re-search-forward

(concat "class\\(\\s \\|\n\\)+" ifcname

"\\(\\s \\|\n\\)*{\\(\\s \\|\n\\)*"

"public:\\(\\s \\|\n\\)*") nil t))

(message (concat "Could not find interface " ifcname "."))

(while (re-search-forward

"\\(\\s \\|\n\\)*=\\(\\s \\|\n\\)*0\\(\\s \\|\n\\)*;"

nil t)

(setq endpos (match-beginning 0))

(setq nextstartpos (match-end 0))

(if (re-search-backward "virtual\\(\\s \\|\n\\)+")

(progn

(setq funstring (buffer-substring (match-end 0) endpos))

(if (string-match "\\sw+\\*?\\(\\s \\|\n\\)*" funstring)

(progn

(setq tmppos (match-end 0))

(if (string-match "\\sw+\\(\\s \\|\n\\)*\("

funstring tmppos)

(progn

(message funstring)

(setq functions

(cons (list (substring funstring tmppos

(- (match-end 0) 1))

funstring)

functions))))))))

(goto-char nextstartpos)))

(reverse functions))))

(defun kreatel-create-mock-class ()

(interactive)

(let (ifcname mockclassname directory h-file h-buffer funlist)

(setq ifcname (file-name-nondirectory (buffer-file-name)))

(if (not (string-match "I\\sw*\\.h" ifcname))

(message "The interface file must be named I<name>.h.")

(progn

(setq ifcname (substring ifcname 0 (- (match-end 0) 2)))

(setq mockclassname (concat "TMock" (substring ifcname 1)))

(setq directory (file-name-as-directory

(concat (file-name-directory (buffer-file-name))

"testcases")))

(if (not (file-directory-p directory))

(message (concat "The directory " directory " doesn't exist!"))

(progn

(setq h-file (concat mockclassname ".h"))

(if (file-exists-p (concat directory h-file))

(message ("The mock class .h-file already exists!"))

(progn

(setq funlist (kreatel-parse-ifc-functions ifcname))

(if (not (null funlist))

(progn

(setq h-buffer (find-file-noselect

(concat directory h-file)))

(kreatel-create-mock-h-file h-buffer h-file ifcname

mockclassname funlist)

(switch-to-buffer h-buffer) ))))))))))

;;; ---------------------------------------------------------------------------

(provide 'kreatel-unit-test)

unittest.el

(require 'kreatel-c++-header-common "c++-header-common.el")

;;; ---------------------------------------------------------------------------

;;; Functions to create a TestMain.cpp

(defun kreatel-create-test-main ()

(interactive)

(progn

(setq directory (file-name-as-directory

(concat (file-name-directory (buffer-file-name))

"testcases")))

(setq filename (concat directory "TestMain.cpp"))

(if (not (file-directory-p directory))

(message (concat "The directory " directory " doesn't exist!"))

(if (file-exists-p filename)

(message "TestMain.cpp already exists!")

(progn

(switch-to-buffer (find-file-noselect filename))

(goto-char (point-min))

(kreatel-common-insert-header "TestMain.cpp"

"Main function for running unit tests")

(insert "#include \"testcases/T?Tests.h\"\n\n")

(insert "#include \"debug/TStderrTracker.h\"\n")

(insert "#include \"debug/TNullTracker.h\"\n")

(insert "#include \"test/console/TVerboseConsoleTestResult.h\"\n\n")

(insert "#define EXTRA_TEST_OUTPUT\n\n")

(kreatel-separator)

(insert "// Tracker\n\n")

(insert "TTracker* TTracker::GetProcessTracker()\n")

(insert "{\n")

(insert "#ifdef EXTRA_TEST_OUTPUT\n")

(insert " static TStderrTracker tracker(TrackAll);\n")

(insert "#else\n")

(insert " static TNullTracker tracker;\n")

(insert "#endif\n")

(insert " return &tracker;\n")

(insert "}\n\n")

(kreatel-separator)

(insert "// main\n\n")

(insert "int main(int /*argc*/, char** /*argv*/)\n")

(insert "{\n")

(save-excursion

(insert " TTestSuite suite(?);\n")

(insert " suite.AddTest(T?Tests::GetSuite());\n\n")

(insert " TVerboseConsoleTestResult result;\n")

(insert "#ifndef EXTRA_TEST_OUTPUT\n")

(insert " result.SetVerbose(false);\n")

(insert "#endif\n")

(insert " suite.Run(&result);\n\n")

(insert " result.PrintSummary();\n")

(insert " return result.WasSuccessful() ? 0 : 1;\n")

(insert "}\n"))

(c++-mode))))))

;;; ---------------------------------------------------------------------------

;;; Functions to create test classes for a specific class.

(defun kreatel-create-test-h-file (buffername filename classname testclassname)

(save-excursion

(set-buffer buffername)

(goto-char (point-min))

(kreatel-common-insert-header filename (concat "Tests for " classname))

(insert "#ifndef " (upcase testclassname) "_H\n")

(insert "#define " (upcase testclassname) "_H\n\n")

(insert "#include \"test/TTestCase.h\"\n")

(insert "#include \"test/TMethodRecorder.h\"\n\n")

(insert "class " testclassname " : public TTestCase\n")

(insert "{\n")

(insert "private:\n")

(insert " TMethodRecorder Recorder;\n\n")

(insert " void Test1();")

(save-excursion

(insert "\n\npublic:\n")

(insert " " testclassname "(const std::string& name);\n")

(insert " static TTest* GetSuite();\n")

(insert "};\n\n")

(insert "#endif\n"))

(c++-mode)))

(defun kreatel-create-test-cpp-file (buffername cpp-file h-file

classname testclassname)

(save-excursion

(set-buffer buffername)

(goto-char (point-min))

(kreatel-common-insert-header cpp-file (concat "Tests for " classname))

(insert "#include \"testcases/" h-file "\"\n\n")

(insert "#include \"" classname ".h\"\n\n")

(insert "#include \"test/TTestSuite.h\"\n")

(insert "#include \"test/TTestCaller.h\"\n\n\n")

(kreatel-separator)

(insert "// Private functions\n\n")

(insert "void " testclassname "::Test1()\n")

(insert "{\n")

(insert " // TODO")

(save-excursion

(insert "\n}\n\n\n")

(kreatel-separator)

(insert "// Public functions\n\n")

(insert testclassname "::" testclassname "(const std::string& name)\n")

(insert " : TTestCase(name)\n")

(insert "{\n")

(insert " // Empty\n")

(insert "}\n\n")

(insert "TTest* " testclassname "::GetSuite()\n")

(insert "{\n")

(insert " TTestSuite* testSuite = new TTestSuite(\""

testclassname "\");\n\n")

(insert " testSuite->AddTest(ALLOC_CALLER("

testclassname ", Test1));\n")

(insert " return testSuite;\n")

(insert "}\n"))

(c++-mode)))

(defun kreatel-create-test-class ()

(interactive)

(let (classname pos testclassname directory

h-file cpp-file h-buffer cpp-buffer)

(setq classname (file-name-nondirectory (buffer-file-name)))

(if (not (string-match "T.*\\.\\(h\\|cpp\\)" classname))

(message "The class file must be named T<name>.h/cpp.")

(progn

(setq pos (string-match "\\." classname))

(setq classname (substring classname 0 pos))

(setq testclassname (concat (substring classname 0 pos) "Tests"))

(setq directory (file-name-as-directory

(concat (file-name-directory (buffer-file-name))

"testcases")))

(if (not (file-directory-p directory))

(message (concat "The directory " directory " doesn't exist!"))

(progn

(setq h-file (concat testclassname ".h"))

(setq cpp-file (concat testclassname ".cpp"))

(if (or (file-exists-p (concat directory h-file))

(file-exists-p (concat cpp-file)))

(message "The test .h or .cpp-file already exists!")

(progn

(setq h-buffer (find-file-noselect (concat directory h-file)))

(setq cpp-buffer (find-file-noselect

(concat directory cpp-file)))

(kreatel-create-test-h-file h-buffer h-file

classname testclassname)

(kreatel-create-test-cpp-file cpp-buffer cpp-file h-file

classname testclassname)

(switch-to-buffer h-buffer)))))))))

;;; ---------------------------------------------------------------------------

;;; Functions to create mock classes for a specific interface.

(defun kreatel-print-function-definitions (funlist)

(if (not (null funlist))

(progn

(insert " virtual " (cadr (car funlist)) ";\n")

(kreatel-print-function-definitions (cdr funlist)))))

(defun kreatel-print-function-declarations (ifcname classname funlist)

(let (returntype funstring)

(if (not (null funlist))

(progn

(setq funstring (cadr (car funlist)))

(string-match "\\(\\s \\|\\\n\\)+" funstring)

(setq returntype (substring funstring 0 (match-end 0)))

(setq funstring (substring funstring (match-end 0)))

(insert "inline " returntype classname "::\n" funstring "\n")

(insert "{\n")

(insert " Recorder.Push(\"" ifcname "::" (car (car funlist))

"()\");\n")

(insert "}\n\n")

(kreatel-print-function-declarations ifcname

classname (cdr funlist))))))

(defun kreatel-create-mock-h-file (buffername filename ifcname mockclassname

funlist)

(save-excursion

(set-buffer buffername)

(goto-char (point-min))

(kreatel-common-insert-header filename

(concat "Mock class for interface " ifcname))

(insert "#ifndef " (upcase mockclassname) "_H\n")

(insert "#define " (upcase mockclassname) "_H\n\n")

(insert "#include \"" ifcname ".h\"\n")

(insert "#include \"test/TMethodRecorder.h\"\n\n")

(insert "class " mockclassname " : public " ifcname "\n")

(insert "{\n")

(insert "private:\n")

(insert " TMethodRecorder& Recorder;\n\n")

(insert "public:\n")

(insert " " mockclassname

"(TMethodRecorder& recorder) throw ();\n\n")

(kreatel-print-function-definitions funlist)

(save-excursion

(insert "};\n\n")

(kreatel-separator)

(insert "// Inlined functions\n\n")

(insert "inline " mockclassname "::\n" mockclassname

"(TMethodRecorder& recorder) throw ()\n")

(insert " : Recorder(recorder)\n")

(insert "{\n")

(insert " // Empty\n")

(insert "}\n\n")

(kreatel-print-function-declarations ifcname mockclassname funlist)

(insert "#endif\n"))

(c++-mode))

(switch-to-buffer h-buffer))

(defun kreatel-parse-ifc-functions (ifcname)

(let ((functions nil)

endpos

nextstartpos

tmppos

funstring)

(save-excursion

(goto-char (point-min))

(if (not (re-search-forward

(concat "class\\(\\s \\|\n\\)+" ifcname

"\\(\\s \\|\n\\)*{\\(\\s \\|\n\\)*"

"public:\\(\\s \\|\n\\)*") nil t))

(message (concat "Could not find interface " ifcname "."))

(while (re-search-forward

"\\(\\s \\|\n\\)*=\\(\\s \\|\n\\)*0\\(\\s \\|\n\\)*;"

nil t)

(setq endpos (match-beginning 0))

(setq nextstartpos (match-end 0))

(if (re-search-backward "virtual\\(\\s \\|\n\\)+")

(progn

(setq funstring (buffer-substring (match-end 0) endpos))

(if (string-match "\\sw+\\*?\\(\\s \\|\n\\)*" funstring)

(progn

(setq tmppos (match-end 0))

(if (string-match "\\sw+\\(\\s \\|\n\\)*\("

funstring tmppos)

(progn

(message funstring)

(setq functions

(cons (list (substring funstring tmppos

(- (match-end 0) 1))

funstring)

functions))))))))

(goto-char nextstartpos)))

(reverse functions))))

(defun kreatel-create-mock-class ()

(interactive)

(let (ifcname mockclassname directory h-file h-buffer funlist)

(setq ifcname (file-name-nondirectory (buffer-file-name)))

(if (not (string-match "I\\sw*\\.h" ifcname))

(message "The interface file must be named I<name>.h.")

(progn

(setq ifcname (substring ifcname 0 (- (match-end 0) 2)))

(setq mockclassname (concat "TMock" (substring ifcname 1)))

(setq directory (file-name-as-directory

(concat (file-name-directory (buffer-file-name))

"testcases")))

(if (not (file-directory-p directory))

(message (concat "The directory " directory " doesn't exist!"))

(progn

(setq h-file (concat mockclassname ".h"))

(if (file-exists-p (concat directory h-file))

(message ("The mock class .h-file already exists!"))

(progn

(setq funlist (kreatel-parse-ifc-functions ifcname))

(if (not (null funlist))

(progn

(setq h-buffer (find-file-noselect

(concat directory h-file)))

(kreatel-create-mock-h-file h-buffer h-file ifcname

mockclassname funlist)

(switch-to-buffer h-buffer) ))))))))))

;;; ---------------------------------------------------------------------------

(provide 'kreatel-unit-test)

收录于

eclipse_emacs_source_etc

半桥LLC谐振DCDC变换器的设计与仿真（Simulink仿真实现）内容概要：本文系统阐述了半桥LLC谐振DCDC变换器的设计与仿真方法，聚焦于其在Simulink环境下的建模、关键参数设计及闭环控制策略的实现。内容深入剖析了LLC谐振变换器的工作原理，包括谐振腔元件（Lr、Cr、Lm）的精确计算与优化方法，详细探讨了实现零电压开通（ZVS）等软开关技术的关键条件，并介绍了变频控制与恒压恒流双闭环控制逻辑的设计思路。通过构建完整的Simulink仿真模型，文章验证了系统在不同负载工况下的动态响应能力、高效率特性和良好的稳态性能，为理论分析提供了强有力的实践支撑。; 适合人群：具备电力电子技术基础理论知识和Simulink软件操作经验的电气工程、自动化及相关专业的本科高年级学生、研究生，以及从事开关电源、新能源变换器等电力电子设备研发的工程师。; 使用场景及目标：①深入理解LLC谐振变换器的核心工作机理与谐振参数的设计准则；②掌握在Simulink中搭建高保真度电力电子变换器仿真模型并实现复杂闭环控制的技术；③为高效率、高功率密度电源产品的研发提供理论指导、设计范例与仿真验证平台。; 阅读建议：建议读者结合文中的理论推导与仿真模型进行同步实践，重点动手调整谐振频率、观察ZVS实现过程，并反复调试PI控制器参数以优化系统的动态与稳态响应，从而深刻领悟LLC变换器的非线性动态特性和先进控制策略的精髓。立即下载

emacs 使用积累2 unittest.el

相关推荐