Overview  Namespace   Class 
SUMMARY: CHILDREN | PARAMETER | INSTPROC | INSTFILTER | INSTFORWARD DETAIL: | INSTPROC

::xounit::test
Class TestAssertFindIn

Heritage:
::xotcl::Object
  |
  +--::xox::Node
        |
        +--::xounit::Test
              |
              +--::xounit::Assert
                    |
                    +--::xounit::TestCase
Class TestAssertFindIn
superclass ::xounit::TestCase,
Variables
NameDefault ValueClassComment
currentTestMethod    ::xounit::TestCase 
 name of the currently running test method.
nodeName    ::xox::Node 
 
result    ::xounit::TestCase 
 the result for the current run.
 
Methods
NameComment
notest {}  
   
Methods from ::xotcl::Object
#, ., ?, ?code, ?methods, ?object, abstract, copy, coverageFilter, defaultmethod, extractConfigureArg, filterappend, garbageCollect, get#, getClean#, hasclass, init, methodTag, mixinappend, move, profileFilter, self, setParameterDefaults, shell, tclcmd, traceFilter,
 
Instproc Detail

notest

Description:
Code: 
  ::xounit::test::TestAssertFindIn instproc notest {}  {
   

        set a [ ::xounit::Assert new ]

        $a assertFindIn a a "Should find a"
        $a assertFindIn a abcdefgh "Should find a"
        $a assertFindIn a "
        
        
        abcdefgh" "Should find a"

        $a assertFindIn TestCasesAreCool "I dont know about you but I think TestCasesAreCool" 

        catch {

            $a assertFindIn b a 

        } result

        my assertEquals "\nDid not find b in:\na - 0" [ ::xoexception::Throwable::extractMessage $result ]


        catch {

            $a assertFindIn "" a 

        } result

        my assertEquals "\nDid not find  in:\na - 0" [ ::xoexception::Throwable::extractMessage $result ]
    
}