Hi Everyone!
New session recording from Global Summit 2018 is available on Developer Community YouTube Channel:
Change Control: Value and Best Practices
Benjamin Spead
Primary tabs
@Benjamin Spead @Evgeny Shvarov
I watched the video, thank you!
As a new Cache developer, I'm curious to know if TestCoverage will ever be implemented in a future release of ObjectScript in the %UnitTest framwork versus why it stands alone as in InterSystems developed OpenExchange project.
Still learning the differences between Cache, ObjectScript, all the InterSystems' applications and how it all intersects with what my company has been doing in Mumps for the past 30 years.
If I can reel back to some basics, however. Because I never really written a complex applications, my sense of testing as always been "write a little, run it, write a little run it," and usually that was in Java. It was easy to write a driver class or main method to test the code and see what was going on. I suppose in a more complex system that is always growing, you need something like this unit test framework to single out these classes to run without writing a separate driver class, or at least in this case TestManager is acting as that driver class. Am I on the write track on how to think about this?
Thanks for everyone's help!
@Evgeny Shvarov and @Benjamin Spead thanks!
I will take a look at the video and get back here if I have more questions.
MD
Hi @Benjamin Spead, do you mean this one?
(Originally posted by @Benjamin Spead on June 25, 2014)
This code snippet generates a list of Ensemble Lookup Tables and Schema documents in the user's current namespace. Run the code by running the class method "test":
Class benspead.EnsTablesSchema
{
classmethod test() {
If ##class(%Dictionary.CompiledClass).%ExistsId("Ens.Util.LookupTableDocument") {
// only supported in Ensemble 2012.1+
Write !,!,"Exporting Ensemble Lookup Tables..."
Set sc = $$$OK
Set rs = ##class(%ResultSet).%New("Ens.Util.LookupTableDocument:List")
Do rs.Execute()
While rs.Next() {
Set item=rs.Data("name")
Write "document found: "_ item,!
}
Do rs.Close()
Set rs=""
}
If ##class(%Dictionary.CompiledClass).%ExistsId("EnsLib.HL7.SchemaDocument") {
Write !,!,"Exporting Ensemble HL7 Schemas..."
Set sc = $$$OK
Set rs = ##class(%ResultSet).%New("EnsLib.HL7.SchemaDocument:List")
Do rs.Execute()
While rs.Next() {
Set item=rs.Data("name")
Continue:$listfind($lb("2.1.HL7","2.2.HL7","2.3.HL7","2.4.HL7","2.5.HL7","2.6.HL7","2.7.HL7","2.3.1.HL7","2.5.1.HL7","2.7.1.HL7","ITK.HL7")
,item)
Write "document found: "_ item,!
}
Do rs.Close()
Set rs=""
}
}
}
Here's a link to the code on GitHub: https://github.com/intersystems-community/code-snippets/blob/master/src/...
Last comment 16 December 2018
Hi Community!
Please welcome a new session recording from Global Summit 2017:
Shared Development in the 21st Century
Hi, Community!
This year we again introduced three annual badges on Global Masters Advocacy Hub to let you remember how much you contributed to Developer Community in 2017. Here they are:
- DC Best-Selling Author 2017
- DC Expert 2017
- DC Opinion Leader 2017
Last comment 1 February 2018
See also this post from last year by [@Benjamin Spead]
Interesting questions.