Tried that, didn't work. I got the same errors On Sat, Mar 17, 2012 at 10:45 AM, Emil Lenngren <emil.lenng...@gmail.com>wrote:
> You need to use "And If", not only "And". > http://gambasdoc.org/help/lang/andif?v3 > > /Emil > > 2012/3/17 Randall Morgan <rmorga...@gmail.com> > > > Hi Benoit, > > > > I tried the code below and I get errors. If I use: > > > > if result Is Array Then > > > > I get a type error. > > > > If I use: > > > > if IsObject(result) And result Is Array Then > > > > I get an identifier error IsObject unknown identifier. > > > > > > I just updated my code base and recompiled and still have these errors. I > > am working on a new machine so maybe I don't have something I should > have. > > Although everything compiles. I am using Ubuntu 11.10 if that makes any > > difference. Also, I am writing command line/console code if that matters? > > > > Here is my function, the code can be found in the gb.gsl test folder. In > > the Test class file. But I have had the same issue using Is with Complex > > and Polynomial. I have not tried it on my other machine. When I return to > > California I will.... > > > > > > Public Function IsEqual(result As Variant, expected As Variant) As > Boolean > > Dim err As Boolean = False > > Dim i As Integer = 0 > > > > If TypeOf(result) <> TypeOf(expected) Then > > AddError(TypeError(Me.ResType, Me.ExpType)) > > Me.hasError = True > > Else > > If IsObject(result) And result Is Array And expected Is Array Then > > If result.len <> expected.len Then > > Me.hasError(LengthError(result.len, expected.len)) > > Else > > For i = 0 To result.len - 1 > > If result[i] <> expected[i] Then > > Me.hasError = True > > Endif > > Next > > Endif > > > > Else > > If result <> expected Then > > AddError(ValueError(Me.Result, Me.Expected)) > > Me.hasError = True > > Endif > > Endif > > Endif > > > > Return Me.hasError > > > > End > > > > > > Thanks for your help > > > > Randall > > > > > > > > 2012/3/16 Benoît Minisini <gam...@users.sourceforge.net> > > > > > Le 16/03/2012 04:14, Randall Morgan a écrit : > > > > Hi, > > > > > > > > I am writing a small test suit and need to tell is the result I got > > back > > > > from a function is an array of some type. > > > > Does anyone have a solution for this? > > > > > > > > Thanks > > > > > > > > > > You can do like that: > > > > > > Dim Result As Variant > > > > > > Result = TestFunction() > > > If IsObject(Result) And If Result Is Array Then ... > > > > > > Or that way: > > > > > > Dim Result As Variant > > > Dim AnArray As Array > > > > > > Result = TestFunction() > > > Try AnArray = Result > > > If Not Error Then ... > > > > > > Anyway, I compiled the last gb.gsl, and I got many very suspicious > > > warnings. Did you aware of them? Or maybe you know what you are doing, > > > but don't know how to write your code not to get these warnings? > > > > > > -- > > > Benoît Minisini > > > > > > > > > > > > ------------------------------------------------------------------------------ > > > This SF email is sponsosred by: > > > Try Windows Azure free for 90 days Click Here > > > http://p.sf.net/sfu/sfd2d-msazure > > > _______________________________________________ > > > Gambas-user mailing list > > > Gambas-user@lists.sourceforge.net > > > https://lists.sourceforge.net/lists/listinfo/gambas-user > > > > > > > > > > > -- > > If you ask me if it can be done. The answer is YES, it can always be > done. > > The correct questions however are... What will it cost, and how long will > > it take? > > > > > ------------------------------------------------------------------------------ > > This SF email is sponsosred by: > > Try Windows Azure free for 90 days Click Here > > http://p.sf.net/sfu/sfd2d-msazure > > _______________________________________________ > > Gambas-user mailing list > > Gambas-user@lists.sourceforge.net > > https://lists.sourceforge.net/lists/listinfo/gambas-user > > > > ------------------------------------------------------------------------------ > This SF email is sponsosred by: > Try Windows Azure free for 90 days Click Here > http://p.sf.net/sfu/sfd2d-msazure > _______________________________________________ > Gambas-user mailing list > Gambas-user@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/gambas-user > -- If you ask me if it can be done. The answer is YES, it can always be done. The correct questions however are... What will it cost, and how long will it take? ------------------------------------------------------------------------------ This SF email is sponsosred by: Try Windows Azure free for 90 days Click Here http://p.sf.net/sfu/sfd2d-msazure _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user
