isup: Add generated code, test that it can be instantiated
This commit is contained in:
parent
0ba1f5cf7e
commit
30ee798714
|
@ -0,0 +1,36 @@
|
|||
"
|
||||
(C) 2011 by Holger Hans Peter Freyther
|
||||
All Rights Reserved
|
||||
|
||||
This program is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU Affero General Public License as
|
||||
published by the Free Software Foundation, either version 3 of the
|
||||
License, or (at your option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
GNU Affero General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU Affero General Public License
|
||||
along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
"
|
||||
|
||||
TestCase subclass: ISUPGeneratedTest [
|
||||
<comment: 'I was written on a flight to Taipei. I will try to
|
||||
instantiate all generated class and walk the hierachy to see if
|
||||
there are any DNUs'>
|
||||
|
||||
testGeneration [
|
||||
ISUPMessage allSubclassesDo: [:class |
|
||||
| struct |
|
||||
struct := class structure.
|
||||
struct fixed do: [:each |
|
||||
each create].
|
||||
struct variable do: [:each |
|
||||
each create].
|
||||
struct optional do: [:each |
|
||||
each create].
|
||||
].
|
||||
]
|
||||
]
|
File diff suppressed because it is too large
Load Diff
|
@ -7,6 +7,7 @@
|
|||
<filein>Extensions.st</filein>
|
||||
<filein>MSG.st</filein>
|
||||
<filein>ISUP.st</filein>
|
||||
<filein>isup_generated.st</filein>
|
||||
<filein>IPAConstants.st</filein>
|
||||
<filein>IPADispatcher.st</filein>
|
||||
<filein>IPAMuxer.st</filein>
|
||||
|
@ -21,13 +22,16 @@
|
|||
<sunit>Osmo.IPATests</sunit>
|
||||
<sunit>Osmo.MessageBufferTest</sunit>
|
||||
<sunit>Osmo.M2UATests</sunit>
|
||||
<sunit>Osmo.ISUPGeneratedTest</sunit>
|
||||
<filein>Tests.st</filein>
|
||||
<filein>ISUPTests.st</filein>
|
||||
</test>
|
||||
|
||||
|
||||
<file>Extensions.st</file>
|
||||
<file>MSG.st</file>
|
||||
<file>ISUP.st</file>
|
||||
<file>isup_generated.st</file>
|
||||
<file>IPAConstants.st</file>
|
||||
<file>IPADispatcher.st</file>
|
||||
<file>IPAMuxer.st</file>
|
||||
|
|
Reference in New Issue