51Testing软件测试论坛

标题: 关于CPPUNIT的一句话，我看不懂！ [打印本页]

作者: barcelona 时间: 2006-5-16 09:58
标题: 关于CPPUNIT的一句话，我看不懂！
下面是一段改进代码，可是有一句前面的话我看不懂，不知道怎么理解才好，而且我电脑上找不到这个文件夹的：
  将cppunit的include拷贝到你的include目录下；
编译cppunit, cppunit_dll, 最后应该包含4个.lib, 两个.dll
将lib文件拷贝到你的lib目录下
将dll文件拷贝到你的bin目录下，这个目录应该在环境变量PATH中。
如果使用MFC进行GUI的testrunner，还需要编译testrunner项目，然后
将对应的4个lib文件拷贝到你的lib目录
将对应的4个dll文件拷贝到你的bin目录下
安装 AddingUnitTestMethod.dsm 到你的 msdev 6.0
下面是AddingUnitTestMethod.dsm 的代码，我修改了一下，添加了一个addSuiteMethod的方法。

Made by bloodchen

bloodchen@hotmail.com

add by edsoncy@yahoo.com.cn
sub AddTestSuiteClass()
On Error Resume Next
dim proj_path,ext,pos,proj_dir,MyCppFile,MyCppName,MyHFile,MyHName,ClassName,HText,CPPText
proj_path = ActiveProject.fullname
ext =
pos = len (proj_path)

Do While ext <> \
  ext = Mid(proj_path, pos, 1)
  pos = pos -1
Loop

proj_dir = left(proj_path, pos+1)
ClassName=InputBox(Enter the Suite name[not include Suite]:, Suite Name)

if ActiveProject.Type <> Build then
  MsgBox This project is not valid. Ending macro.
  Exit Sub
end if

if (len(ClassName) <= 0) then
  MsgBox Invalid suite name. Ending macro.
  Exit Sub
end if

  ClassName=CTest
MyCppName=proj_dir+ClassName+Suite.cpp
MyHName=proj_dir+ClassName+Suite.h
ActiveProject.AddFile MyCppName
ActiveProject.AddFile MyHName
Documents.Add Text
ActiveDocument.Selection.StartOfDocument
HText= #ifndef _+ClassName+_SUITE_INCLUDE_H_+VbCrLf& _
  #define _+ClassName+_SUITE_INCLUDE_H_+VbCrLf& _
  +VbCrLf& _
  #include <cppunit\testSuite.h>+VbCrLf& _
  #include <string>+VbCrLf& _
  namespace +ClassName+Suite+VbCrLf& _
  {+VbCrLf& _
inline std::string name()+VbCrLf& _
{+VbCrLf& _
return +chr(34)+ClassName+chr(34)+;+VbCrLf& _
}+VbCrLf& _
  +VbCrLf& _
CppUnit::Test *suite();+VbCrLf& _
  +VbCrLf& _
  };+VbCrLf& _
  #endif+VbCrLf

ActiveDocument.Selection = HText
ActiveDocument.Save MyHName

  WriteFile MyHName,HText
Documents.Add Text
ActiveDocument.Selection.StartOfDocument
CPPText = #include +chr(34)+stdafx.h+chr(34)+VbCrLf& _
  #include <cppunit/extensions/TestFactoryRegistry.h>+VbCrLf& _
  #include +chr(34)+ClassName+Suite.h +chr(34)+VbCrLf& _
  +VbCrLf& _
  namespace +ClassName+Suite+VbCrLf& _
  {+VbCrLf& _
CppUnit::Test* suite()+VbCrLf& _
{+VbCrLf& _
CppUnit::TestFactoryRegistry &registry = +VbCrLf& _
   CppUnit::TestFactoryRegistry::getRegistry(name());+VbCrLf& _
  +VbCrLf& _
return registry.makeTest();+VbCrLf& _
}+VbCrLf& _
  }

  WriteFile MyCppName,CPPText
ActiveDocument.Selection = CPPText
ActiveDocument.Save MyCppName
End sub

Sub AddTestClass()
On Error Resume Next
dim proj_path,ext,pos,proj_dir,MyCppFile,MyCppName,MyHFile,MyHName,ClassName,HText,CPPText
proj_path = ActiveProject.fullname
ext =
pos = len (proj_path)

Do While ext <> \
  ext = Mid(proj_path, pos, 1)
  pos = pos -1
Loop

proj_dir = left(proj_path, pos+1)
ClassName=InputBox(Enter the class name:, Class Name)

if ActiveProject.Type <> Build then
  MsgBox This project is not valid. Ending macro.
  Exit Sub
end if

if (len(ClassName) <= 0) then
  MsgBox Invalid class name. Ending macro.
  Exit Sub
end if

  ClassName=CTest
MyCppName=proj_dir+ClassName+.cpp
MyHName=proj_dir+ClassName+.h
ActiveProject.AddFile MyCppName
ActiveProject.AddFile MyHName
Documents.Add Text
ActiveDocument.Selection.StartOfDocument
HText= #ifndef _+ClassName+_TEST_INCLUDE_H_+VbCrLf& _
  #define _+ClassName+_TEST_INCLUDE_H_+VbCrLf& _
  +VbCrLf& _
  #include <cppunit\testcase.h>+VbCrLf& _
  #include <cppunit\extensions\HelperMacros.h>+VbCrLf& _
  class +ClassName+:public CppUnit::TestCase+VbCrLf& _
  {+VbCrLf& _
CPPUNIT_TEST_SUITE( +ClassName+ );+VbCrLf& _
CPPUNIT_TEST_SUITE_END();+VbCrLf& _
  public:+VbCrLf& _
+ClassName+();+VbCrLf& _
virtual ~+ClassName+();+VbCrLf& _
  };+VbCrLf& _
  #endif+VbCrLf

ActiveDocument.Selection = HText
ActiveDocument.Save MyHName

  WriteFile MyHName,HText
Documents.Add Text
ActiveDocument.Selection.StartOfDocument
CPPText = #include +chr(34)+stdafx.h+chr(34)+VbCrLf& _
  #include +chr(34)+ClassName+.h+chr(34)+VbCrLf& _
  #include +chr(34)+xxxSuite.h+chr(34)+VbCrLf& _
  +VbCrLf& _
  +VbCrLf& _
  CPPUNIT_TEST_SUITE_NAMED_REGISTRATION(+ClassName+ ,  xxxSuite::name() );+VbCrLf& _
  +VbCrLf& _
  +VbCrLf& _
  ClassName+::+ClassName+()+VbCrLf& _
  {+VbCrLf& _
  }+VbCrLf& _
  +VbCrLf& _
  +VbCrLf& _
  ClassName+::~+ClassName+()+VbCrLf& _
  {+VbCrLf& _
  }

  WriteFile MyCppName,CPPText
ActiveDocument.Selection = CPPText
ActiveDocument.Save MyCppName
End Sub

Sub ToggleHandCPP()
DEs criptION: Opens the .cpp or .h file for the current document.
Toggles between the .cpp & .h file

ext = ActiveDocument.FullName
If ext = Then
  msgbox (Error, not a .cpp or .h file)
  exit sub
End If

DocName = UCase(ext)

If Right(DocName,4) = .CPP Then
  fn = left(DocName, Len(DocName)-3) & h
ElseIf Right(DocName,2) = .H Then
  fn = Left(DocName, Len(DocName)-1) & cpp
Else
  msgbox (Error, not a .cpp or a .h file)
  exit sub
End If

msgbox (fn)
on error resume next
Documents.Open (fn)

End Sub

Sub AddTestMethod()
strHpt = ActiveDocument.FullName
if right(strHpt,3) = CPP Or right (strHpt,3) = cpp Then
  ActiveDocument.Selection.SelectLine
  strText = ActiveDocument.Selection.Text
  if (Instr(strText, :: ) = 0) Then
MsgBox(Line not valid !!)
Exit Sub
  End If
else
  exit sub
end if

pos = Instr(strText, ::)
strName = Right(strText, (Len(strText) - (pos+1)))
pos = Instr(strName,()
strName = Left(strName,pos-1)
strClass = Left(strText,pos - 1)
while (instr(strClass, ) > 0)
  pos = instr(strClass, )
  strTyp = strTyp & Left(strClass, pos)
  strClass = Right(strClass, Len(strClass) - (pos) )
wend
ToggleHandCPP

ActiveDocument.Selection.SelectAll
strHead = ActiveDocument.Selection.Text
if (instr(strHead,strClass) = 0) Then
  MsgBox( Cant find class & strClass & !!)
  ToggleHandCPP
  Exit Sub
End If

ActiveDocument.Selection.EndOfDocument
lineBottom = ActiveDocument.Selection.CurrentLine
ActiveDocument.Selection.StartOfDocument
ActiveDocument.Selection.StartOfLine
ActiveDocument.Selection.SelectLine
strLine = ActiveDocument.Selection.Text
while (instr(strLine, strName) = 0 And ActiveDocument.Selection.CurrentLine <> lineBottom)
  ActiveDocument.Selection.StartOfLine
  ActiveDocument.Selection.LineDown dsMove
  ActiveDocument.Selection.SelectLine
  strLine = ActiveDocument.Selection.Text
Wend

if (ActiveDocument.Selection.CurrentLine < lineBottom) Then
  if( instr(strLine, CPPUNIT_TEST ) <> 0 )Then
ToggleHandCPP
Exit Sub
  end if
End If

ActiveDocument.Selection.StartOfDocument
ActiveDocument.Selection.StartOfLine
ActiveDocument.Selection.SelectLine
strLine = ActiveDocument.Selection.Text

while (instr(strLine, CPPUNIT_TEST_SUITE_END(); ) = 0 And ActiveDocument.Selection.CurrentLine <> lineBottom)
  ActiveDocument.Selection.StartOfLine
  ActiveDocument.Selection.LineDown dsMove
  ActiveDocument.Selection.SelectLine
  strLine = ActiveDocument.Selection.Text
Wend

if (ActiveDocument.Selection.CurrentLine < lineBottom) Then
  ActiveDocument.Selection.EndOfLine
  ActiveDocument.Selection.LineUp
  ActiveDocument.Selection.EndOfLine
  ActiveDocument.Selection.NewLine
  ActiveDocument.Selection = CPPUNIT_TEST( &strName& );
else
  MsgBox(CPPUNIT_TEST_SUITE_END not found)
end if

ToggleHandCPP

End Sub

红子显示的就是了，他说的文件我在电脑上找不到的啊，很郁闷，我的毕业设计就靠他了！

作者: VisualUnit 时间: 2006-5-16 18:04
*.dsm 这个是VC60的宏文件。

1、把上面的代码保存为xxx.dsm文件，保存到 C:\Program Files\Microsoft Visual Studio\Common\MSDev98\Macro目录下。

2、Tools->Customize->Add-ins and Macro Files，选中上述文件就行了，正确的话应该出来一个新工具栏。

作者: barcelona 时间: 2006-5-16 18:56
太谢谢拉哦。。。。谢谢

作者: barcelona 时间: 2006-5-16 19:37
可是怎么保存啊我不会啊能不能麻烦帮助一下谢谢

作者: barcelona 时间: 2006-5-16 19:38
实在感谢实在感谢

作者: VisualUnit 时间: 2006-5-16 21:01
用EditPlus之类的文本编辑器都可以保存啊
不过，更简单的方法是：
Tools -> Macro 自己建一个宏文件，点击Edit，然后把代码贴过来就行了。

作者: barcelona 时间: 2006-5-17 20:13
郁闷啊代码居然显示有错误我靠

作者: VisualUnit 时间: 2006-5-17 21:24
这个就要慢慢调试了，我可没空帮你调试。

前面三行是注释，每行前面加上’

你这些宏代码应该只是在VC上加个工具栏，并不是必须的。

看你搞得那么麻烦，还是建议你用Visual Unit吧。VU 要简单易用得多，全中文的界面和帮助，免费的个人版功能也很好啊，仅仅自动生成测试代码这一项，就至少可以省下一半的单元测试时间。

[ 本帖最后由 VisualUnit 于 2006-5-17 21:35 编辑 ]

作者: barcelona 时间: 2006-5-19 14:35
Made by bloodchen

bloodchen@hotmail.com

add by edsoncy@yahoo.com.cn
??这些是注释？谢谢哈只是我的是毕业设计。。。只有做这个了呵呵题目已经定了呵呵你说的饿那个工具真的很好用很好用的

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)